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1.0 ABSTRACT 


THE DIP11-A SINGLE-INTERFACE DIAGNOSTIC 1S USED TO EXERCISE 
THE LOGIC OF A DIP11-A_ INTERFACE (11ST) IN STANDALONE MODE 
AND REPORT ANY MALFUNCTIONS ON THE CONSOLE TERMINAL. 

MOST CF THE TESTING IS PERFORMED IN WRAPAROUND MAINTENENCE 
MODE, BUT SOME TESTS CAN BE EXECUTED IN NORMAL MCDE. 

THE INTERFACE UNDER TEST MAY BE CONNECTED TO THE I1ST 
INTERCONNECTING BUS AS LONG AS OTHER INTERFACES ARE NOT 

ey pate sos INFORMATION ADDRESSED TO THE INTERFACE UNDER 


2.0 MINIMUM EQUIPMENT 


A. PDP=-11 WITH 12K AND A CONSOLE TERMINAL 
B. DIPII-“A (IIST) INTERFACE (M8717 MODULE) 


3.0 PRELIMINARY OPERATIONS 


If THE INTERFACE IS CONNECTED TO THE IIST BUS, THE OPERATOR 

MAY WISH TO PREPARE THE OTHER INTERFACES FOR THE RUNNING OF THE 
DIAGNOSTIC ON THIS INTERFACE. SUCH PREPARATION MIGHT INCLUDE 
IN! TIALIZATION OF THE OTHER INTERFACES OR ACTIVATION OF THE 
VARIOUS EXTERNAL INHIBIT CONTROLS (IF AVAILABLE) IN ORDER TO 
PREVENT INTERFERENCE WITH THE ONLINE INTERFACES. 


4.0 LOADING PROCEDURE 
WHEW “A PAPER TAPE IS SUPPLIED, LOAD WITH AN ABS LOADER. 


WHEN THE PROGRAM IS AVAILABLE ON XXDP MEDIUM, FOLLOW THE 
LOADING PROCEDURES FOR THE MEDIUM. 


5.0 CONSOLE SWITCH SETTINGS 


SR15 (1) HALT ON ERROR 

SRIG (1) LOOP ON TEST 

SR13 (1) INHIBIT TYPEOUTS 

$10 (1) BELL ON ERROR 

SRO9 (1) - LOOP ON ERROR 

SROO (1) PRINT ALL IIST REGISTERS ON THE CONSOLE TERMINAL 


COMPUTERS WITHOUT A HARDWARE SWITCH REGISTER HAVE A SOFTWARE 
SWITCH REGISTER LOCATION IN MEMORY CALLED ‘‘SWREG'’ (LOCATION 176). 
THIS LOCATION CAN BE CHANGED MANUALLY OR BY TYPING THE “‘CNTRL & G" 
KEYS AND RESPONDING TO THE RESULTING TERMINAL DIALOGUE. 
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6.0 STARTING PROCEDURE 


LOADING ADDRESS 200(8) AND STARTING WILL IDENTIFY THE 
PROGRAM, INITIALIZE THE SYSTEM, AND BEGIN TESTING USING 

THE ADDRESS AND CONFIGURATION PARAMETERS ALREADY STORED 
WITHIN THE PROGRAM (SUCH AS THE DEFAULT PARAMETERS SUPPLIED 
UPON INITIAL LOAD, OR THE PARAMETERS SUPPLIED VIA THE CONSOLE 
ON A PREVIOUS START FROM LOCATION 204). ON INITIAL PROGRAM 
LOAD, THE OPERATING PARAMETERS ARE: 


DEVICE ADDRESS = 7775 


00 
INTERRUPT VECTOR = 260 
BR LEVEL = 6 
CONFIGURATION = O (MAINTENANCE MODE ONLY; . 


SEQ 0003 


NO COMMUNICATION WITH 
11ST BUS) 


LOADING ADDRESS 204(8) AND STARTING WILL INITIATE A CONSOLE 
- DIALOG IN WHICH THE OPERATOR MAY SUPPLY NEW OPERATING 

PARAMETERS (DEVICE ADDRESS, INTERRUPT VECTOR AND LEVEL, 

AND TEST SELECTION). 


SEVEN TEST SELECTION CODES ARE AVAILABLE FOR SELECTING PROGRAM 
OPERATION UNDER VARIOUS CONDITIONS. THE CODES ARE USED AS FOLLOWS: 


CODE USE 


0 RUNS IN MAINTENANCE MODE ONLY; DOES NOT COMMUNICATE WITH 
THE IIST BUS DRIVERS OR RECEIVERS. THIS MODE WOULD BE 
USED IF THERE IS NO TERMINATOR ON THE IIST BUS LINES, IF 
THE TRANSMIT-INHIBIT INPUT IS ASSERTED, IF THE RECEIVER- 
INHIBIT INPUT FOR THE LINE CORRESPONDING TO THIS INTERFACE'S 
SELF-1D IS ASSERTED, OR IF CHECKING OF THE I1ST BUS DRIVERS 
AND RECEIVERS IS NOT DESIRED. 


1 THIS CODE 1S USED WHEN THERE IS AN IIST BUS TERMINATOR 
INSTALLED ON THE MODULE BUT NO JIST BUS CABLE 1S 
CONNECTED, OR WHEN THE MODULE IS CONNECTED TO THE IiST 
BUS AND ALL OTHER INTERFACES ON THE BUS ARE INHIBITED 
FROM TRANSMITTING OR THIS INTERFACE IS INHIBITED 
FROM RECEIVING FROM ALL INTERFACES OTHER THAN ITSELF. 
THIS CODE WOULD BE USED WHEN THE DIP11-C CONTROL PANEL 
HAS SELECTED THIS INTERFACE TO BE ‘ONLINE’ AND “‘STANDALONE"’. 


2 THIS CODE 1S USED WHEN THE MODULE UNDER TEST 1S CONNECTED 
TO THE JIST BUS AND ALL OTHER INTERFACES ON THE BUS ARE EITHER 
IDLE (INITIALIZED) OR INHIBITED. 


3 THIS CODE 1S USED WHEN THE MODULE UNDER TEST 1S CONNECTED 
TO THE 11ST BUS AND THERE ARE OTHER ACTIVE, NON-INHIBITED 
INTERFACES ON THE BUS. 
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CODE 


4 
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USE 


THIS CODE SELECTS THE MAINTENANCE-MODE SELF-BOOT TEST, 
IN WHICH THE OPERATOR CAN INITIATE A PROGRAMMED 

OR SANITY-TIMER BOOT OF THIS PROCESSOR VIA A 
PARTICULAR RECEIVING CHANNEL. THE OPERATOR MUST 
VERIFY THAT THE PROPER BOOT ACTION TOOK PLACE. 


THIS CODE SELECTS THE MULTI-PROCESSOR DIALOG-INITIATED 
BOOT TEST, IN WHICH THE OPERATOR CAN SELECT ANOTHER 
PROCESSOR TO BE BOOTED. FOLLOWING THE SELECTED BOOT, 
AN INTERRUPT IS SENT TO THE SELECTED PROCESSOR, SO IF 
THE BOOT ROUTINE SETS THE INTERRUPT-ENABLE BIT OF 

Me 4 thay THE PROGRAM IS REENTERED AND REPORTS 

HE ACTION. 


THIS CODE SELECTS THE SANITY TIMEOUT HALT-FREEZE TEST, 
WHEREBY THE OPERATOR CAN INITIATE A SANITY-TIMER TIMEOUT 
AND THEN VERIFY THAT THE PROCESSOR WAS PROPERLY HALTED 
AND/OR THE UNIBUS HUNG. IF AN INDICATOR PANEL, 

SUCH AS THE DIP11-C, 1S CONNECTED, OPERATION OF THE 

HALT INDICATOR CAN BE VERIFIED. 


THIS CODE SELECTS THE MANUAL CONTROL PANEL TEST. 

THE PROGRAM CONTINUALLY CYCLES WHILE MONITORING CHANGES 
IN THE “‘DCF'’ REGISTER. WHEN A CHANGE OCCURS (SUCH AS 

A ‘BREAK’ BIT CHANGING IN RESPONSE TO AN INHIBIT INPUT 
IN THE IIST SYSTEM) THE PROGRAM PRINTS OUT THE NEW 
CONTENTS OF DCF. 


THiS CODE SELECTS THE ‘“SCOPE-LOOPS'’ SECTION OF THE 
PROGRAM. THIS SECTION IS A COLLECTION OF ROUTINES, 
SELECTABLE BY THE OPERATOR, WHICH REPEATEDLY CYCLE 
VARIOUS PARTS OF THE LOGIC FOR PURPOSES OF MONITORING 
WITH AN OSCILLOSCOPE. FOR EXAMPLE, ASSUMING THE 
*BOOT'’ CABLE IS NOT CONNECTED TO THE PROCESSOR, 

ONE SCOPE LOOP CAN CAUSE A STRING OF BOOT PULSES TO 
BE GENERATED, WHICH CAN THEN BE MONITORED AT J2 PIN B 
OR J3 PIN 2. OTHER SCOPE LOOPS CAUSE VARIOUS TRANS-~- 
MISSIONS ON THE JIST BUS. 


SEQ 0004 








F 
MAINDEC-11-CRIIA-B macy 30A(1052) 18-JUN-79 14:32 PAGE 5 
CRIJAB.P11 18-JUN-79 14:2 





7.0 OPERATION 


ONCE STARTED WITH CODES 0-3, THE PROGRAM RUNS CONTINUOUSLY AND PERIODICALLY 
PRINTS END OF PASS MESSAGES. THE HARDWARE SWITCH SELF 1D 

CODE 1S REPORTED ON PASS 1, AS IS THE SELECTED SANITY-TIMER 

COUNT RATE. THE OPERATOR SHOULD VERIFY THAT THESE 

ARE THE EXPECTED PARAMETERS. 

SELECTION OF CODES 4-10 CAUSES ENTRY TO OPERATOR-INTERVENTION 

OPERATIONS. 


8.0 ERRORS 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE AND RELEVANT TEST DATA IN TAB- 
ULAR FORM. FURTHER QUALIFICATION OF THE ERROR CAN BE OBTAINED, 

IF NEEDED, FROM THE COMMENT AT THE ERROR PC OR FROM THE TEST ITSELF. 


9.0 LISTING 


-LIST LOC,BIN,SEQ 











G 
MAINDEC-11-CRIIA-B eet 30A(1052) 18-JUN-79 14:32 PAGE 6 
CRIIAB.P11 18-JUN-79 14:24 SEQ 0006 


-ENABLE ABS,AMA 
TITLE MAINDEC-11-CRIIA-B 
:*COPYRIGHT (C) 1977 
>*DIGITAL EQUIPMENT CORP. 
pei MASS. 01754 


:sPROGRAM BY ROBERT J. COLLINS 


eTHIS PROGRAM WAS ASSEMBLED USING THE PDP- mit MAINDEC SYSMAC 
paPRCEAE (MAINDEC=11-DZQAC-C1),MAR 24, 1976 


“SBTTL OPERATIONAL SWITCH SETTINGS 


~m 
Ww 
> 


ie SWITCH USE 

Ci a a A a a 
;* 15 HALT ON ERROR 

3° 14 LOOP ON TEST 

e 13 INHIBIT ERROR TYPEOUTS 
* 11 INHIBIT ITERATIONS 

pe 10 BELL ON ERROR 


9 LOOP ON ERROR 
*SBITL BASIC DEFINITIONS 


tng ~ sr OF THE STACK POINTER *#* 1100 *## 


ee ee a ae ee te eed bt ee al ae a an a tte) 
kt tk tt st a at st tt ot tA 


001100 STACK= 
-EQUIV) EMT,ERROR >;BASIC DEFINITION OF ERROR CALL 
-EQUIV 10T,SCOPE >:;BASIC DEFINITION OF SCOPE CALL 
> *MISCELLANEOUS DEFINITIONS 
000011 HT= 11 3;CODE FOR HORIZONTAL TAB 
000012 LF= 12 3:CODE FOR LINE FEED 
000015 CR= 15 3;CODE FOR CARRIAGE RETURN 
000200 CRLF= 200 3:CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS= 177776 3;PROCESSOR STATUS WORD 
-EQUIV PS,PSW 
177774 STKLMT= 177774 7:STACK LIMIT REGISTER 
177772 PI]RQ= 177772 > PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 177570 HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 7; HARDWARE DISPLAY REGISTER 
s*GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO= 20 7: GENERAL REGISTER 
000001 R1= %1 7;GENERAL REGISTER 
000002 R2= %2 7: GENERAL REGISTER 
000003 R3= x3 7: GENERAL REGISTER 
000004 R4= 24 7: GENERAL REGISTER 
000005 R5= 25 7: GENERAL REGISTER 
000006 R6= 26 7:;GENERAL REGISTER 
000007 R7= 27 >: GENERAL REGISTER 
000006 SP=R6 7:STACK POINTER 
000007 PC=R7 3;PROGRAM COUNTER 
s*PRIORITY LEVEL DEFINITIONS 
000000 : PRO= 0 > PRIORITY LEVEL 0 
000040 PRI= 40 ;;PRIORITY LEVEL 1 
000100 PR2= 100 > PRIORITY LEVEL 2 
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000140 PR3= 140 7 ;PRIORITY LEVEL 
000200 PR4= 200 > PRIORITY LEVEL 
000240 PR5= 240 >;PRIORITY LEVEL 
000300 PR6= 300 >;PRIORITY LEVEL 
000340 PR7= 340 > PRIORITY LEVEL 
3*'"SWITCH REGISTER’ SWITCH DEFINITIONS 
100000 SW15= 
040000 Swi4= 40000 
020000 SW13= 20000 
010000 SWwi2= 10000 
004000 Swil= 4000 
002000 Sw10= 2000 
001000 swO9= 1000 
000400 SwO8= 400 
000200 SwO7= 200 
000100 SwO6= 100 
000040 SwO5= 40 
000020 SwO4= 20 
000010 SwO3= 10 
000004 SwO2= 4 
000002 SwOl= 2 
000001 Sw00= 


“EQUIV $wO0O.SWO 
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wee ewww www www we www wwewweww www vVewvVevVvvyvvVvevVevevVevevevuevwvevvuvuwvwvevvevuvvwvwwvwvwvuevww 

mn 

Cee 

< 

al 

ww 

. 

yn 

w 


;*DATA BIT DEFINITIONS (BIT00 TO B1T15) 
100000 B1T15= 100000 
040000 B1T14= 40000 
020000 B1T13= 20000 
010000 BIT12= 10000 
004000 BIT11= 4000 
002000 B1T10= 2000 
001000 B1T09= 1000 
000400 B1T08= 400 
000200 B1T07= 200 
000100 B1T06= 100 
000040 B1T05= 40 
000020 B1T04= 20 
000010 B1T03= 10 
000004 BIT02= 4 
000002 BITO1= 2 
000001 B1T100= 1 
-EQUIV B1109,B119 
EQUIV B1108,B118 
£QUIV 81107,B117 
EQUIV B1106,B116 
EQUIV B1105,B115 


NOW Ew 


MAINDEC-11-CRIIA-B 


CRIIAB.P11 
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000004 


000240 


18-JUN-79 
-EQUIV B 
EQUIV 


EQUIV 
EQUIV 


1T04 

B1103 

-EQUIV B1T02 
B1101 

B1100 
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BASIC DEFINITIONS 


3 *BASIC aia TRAP VECTOR ADDRESSES 


RESVEC= 10 


TPVEC= 64 
PIRQVEC=240 


IME OUT AND OTHER ERRORS 
: RESERVED AND ILLEGAL iNSTRUCTIONS 


>; TRACE TRAP 

7 :BREAKPOINT TRAP (BPT) 

ph oh Hy da TRAP (1OT) **SCOPE*®* 
;;POWER FAIL 

; EMULATOR TRAP (EMT) **ERROR®® 
77''TRAP’’ TRAP 

3;TTY KEYBOARD VECTOR 

3:TTY PRINTER VECTOR 

7;PROGRAM INTERRUPT REQUEST VECTOR 
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243 
244 .SBTTL MEMORY MANAGEMENT DEFINITIONS 
Wy) :*KT11 VECTOR ADDRESS 
CW) 000250 MMVEC= 250 
M) :*KT11 STATUS REGISTER ADDRESSES 
(1) 177572 SRO= 177572 
(1) 177574 SRI= 177574 
(1) 177576 SR2= 177576 
CM) 172516 SR3= 172516 
) S*KERNEL "'l'’ PAGE DESCRIPTOR REGISTERS 
(1) 172300 KIPDRO= 172300 
(1) 172302 KIPDR1= 172302 
(1) 172304 KIPDR2= 172304 
(1) 172306 KIPDR3= 172306 
(1) 172310 KIPDR4= 172310 
(1) 172312 KIPDRS= 172312 
(1) 172314 KIPDR6= 172314 
1) 172316 KIPDR7= 172316 
(1) 
() S*KERNEL "'l'' PAGE ADDRESS REGISTERS 
(1) 
1) 172340 KIPARO= 172340 
(1) 172342 KIPARI= 172342 
(1) 172344 KIPAR2= 172344 
(1) 172346 KIPAR3= 172346 
(1) 172350 KIPARG= 172350 
(1) 172352 KIPARS= 172352 
(1) 172354 KIPAR6= 172354 
CM) 172356 KIPAR7= 172356 
(1) 
245 .SBTTL TRAP CATCHER 
(1) 
(1) 000000 
(1) *ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN 
(1) ‘eA '',42, JOT SEQUENCE TO CATCH AND PROCESS ILLEGAL 
(1) t*TRAPS AND INTERRUPTS THAT MIGHT OCCUR. 
(1) ‘*THE JOT TRAP WHICH 1S TAKEN ON THE ILLEGAL TRAP/INT 
(1) **TRAPS TO THE $SCOPE ROUTINE WHICH (IF THE RETURN PC IS 
(1) **LESS THAN 1002) JUMPS TO THE SERROR ROUTINE. 
(1) ‘eTHE SERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS: 
(1) ;* PC=YYYYYY UNEXPECTED TRAP TO XXX 
(1) SAND RETURN TO THE PROGRAM AT PC=YYYYYY42 
(1) ; WHERE XXX=LOCATION OF ILLEGAL TRAP 
(1) YYYYYY=PC AT TIME OF TRAP 
(1) «NOTE: IF THE PROCESSOR 1S NOT AN 11/05 THE PROGRAM 
(1) : CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200. 
(1) 
(1) 000000 000000 $40CAT: HALT : 
(1) 000002 000737 BR .-100 BRANCH 10 177700 & TIME OUT (NOT ON 
(1) 33 
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1AB.P11 18=JUN-79 14:24 TCHER SEQ 0010 | 
(1) 000004 002644 -WORD NOPAR ;;VECTOR TO STARTING ADDRESS 

(1) 000006 000340 WORD 340 3;WITH PRIORITY LEVEL 7 

(1) 000174 27174 

(1) 000174 000000 DISPREG:.WwORD 0 ;; SOFTWARE DISPLAY REGISTER 

(1) 000176 000000 SWREG: .WORD 0 7; SOFTWARE SwWLLGu--REGISTER 

(1) ~SBTTL STARTING ADDRES(ES) 

(1) 000200 000137 002644 JMP @#NOPAR ;;GO TO START OF PROGRAM 

5: 000204 000137 002654 JMP SELPAR :GO TO SELECT PARAMETERS 

4 
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CRIIAB.P11  18-JUN-79 14:24 STARTING ADDRES(ES) SEQ 0011 
249 
250 “SBITL ACTI1 HOOKS 
;, ererererrrrerererererrerererererererereteeeeaeeteneeeeeeeeeAeee 
“HOOKS REQUIRED BY ACT11 
000210 $SVPC=. SAVE PC 
000046 46 
000046 052140 SENDAD £:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 000000 “woRD 0 ;:2)SET LOC. 532 TO ZERO 
000210 * =$SVPC tt RESTORE P 
001000 : 


-=1000 
-SBTTL APT PARAMETER BLOCK 


sp eeeeeeerererererrereerereretererereetereretaneeeeeetanereeentere 


;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


Meee ekeeeeeeereeeeeeeeereeeteeteereeteteaneeektenetetetaeeene 


001000 ~$X=. 5; SAVE CURRENT LOCATION 

000024 -=24 +3SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 ;FOR APT START UP 

000044 744 ::POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHOR 3;POINT TO APT HEADER BLOCK 

001000 =.$X  ;;RESET LOCATION COUNTER 


s eeeneereceereerereeteeeeserererereeterterereesereneeeeereneetes 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


Ce ed el ee et et oe ee et ee a ee et a et ee ee el ae el 
a kt IN) et A et IN Tt et cs sf 
eNews eee ee ees ee 9 a es ees we ae ae aes ae 


001000 SAPTHD: 

001000 000000 $HIBTS: .wORD 0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001002 001230 SMBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BiTS 0-15) 

001004 000017 $TSTM: .WORD 15. ;;RUN TIM OF LONGEST TEST 

001006 000074 SPASTM: .WORD 60. + 3RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

001010 000000 SUNITM: .WORD 0 ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
001012 000052 “WORD $ETEND-SMAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 
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et -SBTTL COMMON TAGS 

(2) pp eeererererererrererreerererereretertrenteerenereeeneeeeeeeee eee 
(1) >*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

ae 7*USED IN THE PROGRAM. 

(1) 001100 -=1100 

(1) 001100 SCMTAG: :;START OF COMMON TAGS 

(1) 001100 000000 «WORD 0 

(1) 001102 000 STSTNM: .BYTE 0 >: CONTAINS THE TEST NUMBER 

(1) 001103 000 SERFLG: .BYTE 0 : CONTAINS ERROR FLAG 

(1) 001104 000000 SICNT: .WORD 0 :;CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 000000 SLPADR: .WORD 0 : CONTAINS SCOPE LOOP ADDRESS 

(1) 001110 000000 SLPERR: .WwORD 0 :: CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 000000 SERTTL: .WORD 0 >; CONTAINS TOTAL ERRORS DEIECTED 
(1) 001114 000 SITEMB: .BYTE 0 :;CONTAINS ITEM CONTROL BYTE 

(1) 001115 001 SERMAX: .BYTE 1 >; CONTAINS MAX. ERRORS PER TESI 
(1) 001116 000000 SERRPC: .WORD 0 :: CONTAINS PC OF LAST ERROR INSTRUCTION 
(1) 001120 000000 SGDADR: .WORD 0 :; CONTAINS ADDRESS OF ‘GOOD’ DATA 
(1) 001122 000000 SBDADR: .WORD 0 : CONTAINS ADDRESS OF ‘BAD* DATA 
(1) 001124 000000 $GDDAT: .WwORD 0 >; CONTAINS ‘GOOD’ DATA 

(1) 001126 000000 - $BDDAT: .WORD 0 7: CONTAINS ‘BAD’ DATA 

(1) 001130 000000 WORD 0 : ;RESERVED--NOT TO BE USED 

(1) 001132 000000 -wORD 0 

(1) 001134 000 SAUTOB: .BYTE 0 :;AUTOMATIC MODE INDICATOR 

(1) 001135 000 SINTAG: .BYTE 0 :: INTERRUPT MODE INDICATOR 

(1) 001136 000000 «WORD 0 

(1) 001140 177570 SWR: ~ WORD DSWR :;ADDRESS OF SWITCH REGISTER 

41) 001142 177570 DISPLAY: .WORD DDISP 3s; ADDRESS OF DISPLAY REGISTER 

(1) 001144 177560 $TKS: 177560 >;1TY KBD STATUS 

(1) 001146 177562 $TKB: 177562 :: TTY KBD BUFFER 

(1) 001150 177564 $TPS: 177564 ::TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 STPB: 177566 3; TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 000 $NULL BYTE 0 > :CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS 7s 2 ;;CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 012 SFILLC: .BYTE 12 sr INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
(1) 001157 000 STPFLG: .BYTE 0 ::''TERMINAL AVAILABLE’ FLAG (B11<07>=0=YES) 
(1) 001160 000000 SREGAD: .WORD 0 :: CONTAINS THE ADDRESS FROM 

(1) ::WHICH (S$REGO) WAS OBTAINED 

(3) 001162 000000 S$REGO: .WORD 0 :: CONTAINS (($REGAD) +0) 

(3) 001164 000000 $REG1: .WORD 0 : CONTAINS (($REGAD) +2) 

~%3) 001166 000000 $REG2 WORD 0 CONTAINS (($REGAD) +4) 

(3) 001170 000000 $REG3 WORD 0 +: CONTAINS ( ($REGAD) +6) 

(3) 001172 000000 SREG4 WORD 0 s:CONTAINS (($REGAD)+10) ~ 

(3) 001174 000000 $REGS WORD 0 >: CONTAINS (($REGAD) +12) 

(3) 001176 000000 $TMPO wORD 0 > USER DEFINED 

(3) 001200 000000 STMP1 WORD 0 ; USER DEFINED 

(39 001202 000000 STMP2: .WORD 0 > USER DEFINED 

(3) 001204 000000 STMP3 wORD 0 : ;USER DEFINED 

(3) 001206 000000 STMP4 WORD 0 ;;USER DEFINED 

(3) 001210 000000 STMPS wORD 0O ¢3U ER DEFINED 

(3) 001212 000000 $TMP6: .WORD O > USER DEFINED 

(1) 001214 000000 STIMES: 0 ;3MAX. NUMBER OF ITERATIONS 

(1) 001216 000000 SESCAPE:0 s ESCAPE ON ERROR ADDRESS 

(1) 001220 177607 000377 $BELL: .ASCi2Z -- + einai >: CODE FOR BELL 

(1) 001224 077 $QUES: .ASC3i ; ;QUESTION MARK 


N 
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CRIIAB.P11 18-JUN-79 14:24 SEQ 0013 
001225 015 SCRLF: .ASCII <15> aes Sad RETURN 
001226 000012 , SLF: eASCIZ <12> ;;LINE FEED 


s;eeeeeererrererenereererrererereretrerteetenteeeeeeAeererereeeee 


“SBITL APT MAILBOX-E TABLE 


pp eeeeeeererereerreeerereeerenterererteeeeateeeeeeeeenAeeneeeTese 


-EVEN 

001230 SMAIL: >; APT MAILBOX 

001230 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 

001232 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 

001234 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 

001236 000000 SPASS: .WORD APASS ;;PASS COUNT 

001240 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 

001242 000000 SUNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 

001244 000000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 

001246 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 

001250 SETABLE ;;APT ENVIRONMENT TABLE 

001250 000 SENV: BYTE AENV 7 ENVIRONMENT BYTE 

001251 000 SENVM: .BYTE AENVM ;;ENVIRONMENT MODE BITS 

001252 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 

001254 000000 SUSWR: .WORD AUSWR ;;USER SWITCHES 

001256 000000 SCPUOP: .WORD ACPUOP ;;CPU TYPE,OPTIONS 
:* BITS 15-11=CPU TYPE 
oe 11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
3; 11/70=06,PDQ=07,Q=1 
.* BIT 10=REAL TIME CLOCK 
he BIT 9=FLOATING POINT PROCESSOR 
"he BIT 8=MEMORY MANAGEMENT 

001260 000 SMAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 

001261 000 SMTYP1: .BYTE AMTYP1 ;; MEM. TYPE ,BLKA1 

- ;* MEM.TYPE BYTE <-- (HIGH BYTE) 

ha 900 NSEC CORE=001 
3* 300 NSEC BIPOLAR=002 
Be 500 NSEC MOS=003 


001262 000000 AMADR1 ;;HIGH ADDRESS ,BLK#1 


hd ; MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘TYPE’ ABOVE 


001264 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 
001265 000 SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE, BLK#2 
00 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS,BLK#2 


AMAMS3 + HIGH ADDRESS,M.S.BYTE 
AMTYPS ;;MEM.TYPE, BLKA3 
AMADRS ;;MEM.LAST ADDRESS, BLK#3 


o 
So 
—Ss 
Mr 
No 
oo 

’ 


001274 00 SMAMS4: .BYTE AMAMS4 ;;HIGH ADDRESS,M.S.BYTE 

001275 SMTYP4: .BYTE AMTYP4 2 MEM.TYPE, BLKAG 

001276 000000 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS,BLK&4 

001300 000000 $VECT1: .WORD AVECT1 ;; INTERRUPT VECTOR#1 BUS PRIORITY#1 


AVECT2 9 ;; INTERRUPT VECTOR#2BUS PRIORITYM2 


ee ee ee a a a ee ee ee ee ee ee el ee ee ee ee ee ee ee ae ee ee ee eee ee ee ae ee ee ee ee 


RORGPG RG POAPGN AGN POP POD NY PG NG PU PE PUNE PNP NI NDI NINN PPP NPN NNN NNN NNNNNNNNNWANNN 
we eS ES SS SS eS we we ew ee ee es www 


001304 000000 SBASE WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
001306 000000 SDEVM: .WORD ADEVM ;;DEVICE MAP 

001310 000000 $CDW1: .WORD ACDW1 + CONTROLLER DESCRIPTION WORD#1 

001312 000000 $CDW2: .WORD ACDW2 ;CONTROLLER DESCRIPTION WORD#2 
001314 000000 $DDWO: WORD ADDWO  ;;DEVICE DESCRIPTOR WORD#O 

001316 000000 $DDW1: .WORD ADDW1 ;;DEVICE DESCRIPTOR WORDA1 

001320 000000 $DDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORDM2 

001322 000000 $DDW3: .WORD ADDWS UENCE DESCRIPTOR WORD#3 

001324 000000 $DDW4: .WORD  ADDW4 DEVICE DESCRIPTOR WORD#4 


—— 
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ADDWI4 
ADDWI5 


18-JUN-79 

APT A]. BOX-E TABLE 
$D0wS: WORD 
$DDW6: .WORD 
$DDw7 . WORD 
$D0w8 - WORD 
$DDw9 . WORD 
$DDW10: .WORD 
$DDwW11: .WORD 
$DDW12: .WORD 
$DDwW13: . WORD 
$DDW14: . WORD 
$0DwW15: WORD 
SETEND: 


7; DEVICE 


> DEVICE 
; DEVICE 


DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIFTOR 
DESCRIPTUR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 


WORD#14 
WORD#15 


SEQ 0014 


yer wy 


MAINDEC-11-CRIIA-B MACY11 30A(1052) 
CRIIAB.P11 24 
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001354 


001354 


001362 


001364 


001372 


001374 
001376 
001400 
001402 


001404 
001406 
001410 
001412 


001414 


001422 


001424 


001432 
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036162 
041056 
042134 
042202 


036215 


042202 


036655 
041173 
042134 
042202 


036712 
041146 
042150 
042202 


036773 
041173 
042134 
042202 


037027 
041146 
042150 
042202 


18-JUN-79 


ERROR P 


OINTER TABLE 


C 
14:32 PAGE 8-3 


-SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
7*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 


; *LOCAT 


:*NOTE1: 


3; *NOTE2: 


SERRTB: 
;ERROR 


: ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


sERROR 


1ON SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE in PERTINENT. 


IF SITEMB 1S 0 THE ONLY PERTINENT DATA IS (SERRPC 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 
>;POINTS TO THE DATA HEADER 
3;POINTS TO THE DATA 

7;POINTS TO THE DATA FORMAT 


;ACR B1T3-0 LOAD-READER ERROR 
;PASS PC EXPCTD ACTUAL ACR 
;SPASS ,SERRPC ,SGDDAT ,SBDDAT ,DISPLY 


3ACR BIT3-O0 WERE NOT CLEARED BY RESET (ACR CLR) 
PASS PC ACR 
;SPASS,SERRPC,DISPLY 


;PGTE B11T11-8 LOAD-READ ERROR 
PASS PC EXPCTD ACUTAL PGTE 
7 SPASS,,SERRPC,SGDDAT .SBDDAT ,DISPLY 


;PGTE B1T11-8 WERE NOT CLEARED BY RESET (ACR CLR) 
PASS PC PGTE 
7SPASS,,SERRPC.DISPLY 


:PGTE B113-0 LOAD-READ ERROR 
;PASS PC EXPCTD ACUTAL PGTE 
7SPASS,,SERRPC ,SGDDAT ,SBDDAT .DISPLY 


sPGTE BIT3- i. WERE NOT CLEARED By RESET (ACR CLR) 
;PASS PC PGTE 
$PASS ,SERRPC DISPLY 


SEQ 0015 


MAINDEC-11-CRIIA-B 
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001434 
001436 
001440 
001442 


001444 
001446 
001450 
001452 


001454 
001456 
001460 
001462 


001464 
001466 
001470 
001472 


001474 
001476 
001500 
001502 


001504 
001506 
001510 
001512 


001514 
001516 
001529 
001522 


001524 


001532 


001534 
001536 
001540 
001542 
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036274 
041146 
042150 
042202 


036331 
041146 
042134 
042202 


036377 


042202 


036463 


042202 


036521 
041146 
042150 
042202 


036570 
041146 
042150 
042202 


037107 
041240 
042134 
042202 


037144 
041305 
042150 
042202 


037225 
041240 
042134 
042202 


red 30A(1052) 
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ERROR 


s ERROR 


; ERROR 


; ERROR 


ERROR 


;ERROR 


ERROR 


; ERROR 


7 


Dd 
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ERROR POINTER TABLE 


; ERROR 


;1E (PGTE BIT 6) CANNOT BE SET 
sPASS PC PGTE 
;SPASS,SERRPC ,DISPLY 


s1E (PGTE Bibi CANNOT BE WRITTEN TO 0 
[PASS PC PGTE 
SPASS, SERRPC, DISPLY 


;1€ (PGTE B1T6) CANNOT BE CLEARED BY RESET (ACR CLR) 
;PASS PC PGTE 
7SPASS,SERRPC,DISPLY 


;PTP (PGTE BIT1) CANNOT BE SET 
;PASS PC PGTE 
SPASS,,SERRPC,DISPLY 


PIP (PGTE BIT1) CANNOT BE WRITTEN TO 0 
PASS PC PGTE 
7 SPASS,SERRPC,DISPLY 


;PTP (PGTE BIT1) CANNOT BE CLEARED BY RESET (ACR CLR) 
PASS PC PGTE 
7SPASS,SERRPC .DISPLY 


:STTE B1111-8 LOAD-READ ERROR 
PASS PC EXPCTD ACUTAL STTE 
SPASS ,SERRPC,SGDDAT,SBDDAT ,DISPLY 


sSTTE B1T11-8 WERE NOT CLEARED By RESET (ACR CLR) 
sPASS PC STTE 
“$PASS, SERRPC,DISPLY 


:STTE BIT3-0 LOAD-READ ERROR 
[PASS PC EXPCTD ACUTAL STTE 
S$PASS ,SERRPC ,SGDDAT,SBDDAT ,DISPLY 


SEQ 0016 | 
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001544 


001552 


001554 
001556 
001560 
001562 


001564 
001566 
001570 
001572 


001574 
001576 
001600 
001602 


001604 
001606 
001610 
001612 


001614 
001616 
001620 
001622 


001624 
001626 
001630 
001632 


001634 
001636 
091640 
001642 


001644 
001646 
001650 
001652 
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042202 


037341 
041332 
042150 
042202 


037377 
041332 
042150 
042202 


037446 


042202 


037533 


042202 


037571 
041332 
042150 
042202 


037640 
041332 
042150 
042202 


037725 
041332 
042150 
042202 


037763 


042202 


veg A 30A(1052) 
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ERROR 


ERROR 


ERROR 


; ERROR 


7 ERROR 


; ERROR 


7 ERROR 


; ERROR 


E 
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ERROR POINTER TABLE 


;ERROR 


sLKE ye + hae CANNOT 
sPASS PC S°CS 
;SPASS ,SERRPC,DISPLY 


sLKE (STCS B1T2) CANNOT 
;PASS PC STCS 
SPASS ,SERRPC DISPLY 


sLKE (STCS BIT2) CANNOT 
;PASS PC STCS 
SPASS,SERRPC,DISPLY 


STP (STCS BIT1) CANNOT 
;PASS PC STCS 
;SPASS,SERRPC ,DISPLY 


STP (STCS BIT1) CANNOT 
;PASS PC STCS 
;SPASS ,SERRPC,DISPLY 


STP (STCS BIT1) CANNOT 
PASS PC STCS 
7 SPASS ,SERRPC,DISPLY 


;ENB (STCS BIT0) CANNOT 
PASS PC STCS 
:SPASS,SERRPC DISPLY 


sENB (STCS BIT0) CANNOT 
sPASS PC STCS 
:SPASS,SERRPC,DISPLY 


BE 


BE 


BE 


BE 


BE 


BE 


BE 


BE 


SEQ 0017 


;STTE BIT3-0 WERE NOT CLEARED BY RESET (ACR CLR) 
sPASS PC STTE 
7 SPASS,SERRPC ,DISPLY 


SET 
WRITTEN TO O 
CLEARED BY RESET (ACR CLR) 


SET 


SET 


WRITTEN TO 0 
CLEARED BY RESET (ACR CLR) 
WRITTEN TO 0 


ee ee 





F 
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CRIIAB.P11 1B8-JUN-79 14:24 ERROR POINTER TABLE SEQ 0018 
401 sERROR 31 
402 001654 040032 EM31 sENB (STCS BITO) CANNOT BE CLEARED BY RESET (ACR CLR) 
403 001656 041332 DH? PASS PC STCS 
404 001660 042150 DT2 sSPASS,SERRPC,DISPLY 
405 001662 042202 DAF 1 
406 
407 sERROR 32 
408 001664 040117 EM32 7STCS B1115-8 LOAD-READ ERROR 
409 001666 041357 DH8 :PASS PC EXPCTD ACUTAL STCS 
410 001670 042134 DT1 sSPASS,SERRPC,SGDDAT ,SBDDAT ,DISPLY 
ret | 001672 042202 DAF 1 
413 sERROR 33 
414 001674 040154 —EM33 sSTCS B1115-8 WERE NOT CLEARED BY RESET (ACR CLR) 
415 001676 041332 DH7 sPASS PC STCS 
416 001700 042150 DT2 sSPASS,SERRPC,DISPLY 
$4 001702 042202 DAF 1 
419 sERROR 34 
420 001704 040235 EM34 : IMSK B1111-8 LOAD-READ ERROR 
421 001706 041424 DHI sPASS PC EXPCTD ACUTAL IMSK 
422 001710 042134 DT1 > SPASS,SERRPC ,SGDDAT,SBDDAT .DISPLY 
mb 001712 042202 DAF 1 
425 sERROR 35 
426 001714 040272 —M35 :1MSK BIT11-8 WERE NOT CLEARED BY RESET (ACR CLR) 
427 001716 041471 DH10 =PASS PC IMSK 
428 001720 042150 DT2 “$PASS,SERRPC,DISPLY 
n> 001722 042202 DAF 1 
431 sERROR 36 
432 001724 040353 EM36 > IMSK B11T3-0 LOAD-READ ERROR 
433 001726 041424 DH9 sPASS PC EXPCTD ACUTAL IMSK 
434 001730 042134 DT1 sSPASS,.SERRPC ,SGDDAT,SBDDAT .DISPLY 
435 001732 042202 DAF 1 
436 
437 sERROR 37 
438 001734 040407 EM37 :IMSK BIT3-0 WERE NOT CLEARED By RESET (ACR CLR) 
439 001736 041471 DH10 PASS PC IMSK 
440 001740 042150 DT2 :SPASS,SERRPC.DISPLY 
ot 001742 042202 DAF 1 
44 
443 sERROR 40 
444 001744 040467 —M40 :MTCE B1111-8 LOAD-READ ERROR 
445 001746 041516 DH11 sPASS PC EXPCTD ACUTAL MTCE 
446 001750 042134 DT1 sSPASS,SERRPC ,SGDDAT,S$BDDAT .DISPLY 
447 001752 042202 DAF 1 
448 
449 sERROR 41 
450 001754 040523 —M41 :MICE B1T11-8 WERE NOT CLEARED BY RESET (ACR CLR? 
451 001756 041563 DH12 PASS PC MICE 
452 001760 042150 DI2 sBPASS,SERRPC.DISPLY 


453 001762 042202 DAF 








G 2 
MAINDEC-11-CRIIJA-B MACY11 30A(1052) 18-JUN-79 14:32 PAGE 12 
CRIIAB.P11 1B8-JUN-79 14:24 ERROR POINTER TABLE SEQ 0019 
455 ERROR 42 
456 001764 040605 EM42 MICE B1T3-0 LOAD- ose eonen 
457 001766 041516 DH11 :PASS PC EXPCTD ACTUAL MICE 
458 001770 042134 dT1 “$PASS ,SERRPC,S$GDDAT, SBDDAT. DISPLY 
459 001772 042202 DAF 1 
460 
461 ERROR 43 
462 001774 040636 —M43 s MICE BITS. A WERE NOT CLEARED BY RESET (ACR CLR) 
463 001776 041563 DH12 sPASS PC M 
464 002000 042150 DT2 :$PASS, SERRE, DISPLY 
465 002002 042202 DAF 1 
466 ERROR 44 
467 002004 040715 EM44 11ST ERROR = REFER TO THE LISTING AT ‘'PC"’ 
468 710 DETERMINE THE ERROR. 
469 002006 041610 DH13 PASS PC LINE # EXPCTD ACTUAL DISPLY STMPO $TMPI 
470 002010 042160 DT3 s$PASS,SERRPC,LINMBR,$GDDAT,$BDDAT,DISPLY,STMPO,STMP1 
af 002012 042202 DAF 1 
473 ERROR 45 
474 002014 041017 EM4S ACR (3:0) AUTO-INCREMENT ERROR 
475 002016 041056 DH1 
476 002020 042134 DT1 
wT 002022 042202 DAF 1 
> .SBITL REGISTER DEFINITIONS 
4 
+ + sACR BIT DEFINITIONS 
4 
483 100000 CLR=B1115 MASTER CLEAR 
484 000000 PGTEE=0 
485 000001 PGCSE=1 
486 000002 STTEE=2 
487 000003 STCSE=3 
488 000004 IMSKE=4 
489 000005 PGFE=5 
490 000006 STFE=6 
491 000007 DCFE=7 
492 000010 EXCE=10 
493 000015 MTCE=15 
494 
7 :PGTE BIT DEFINITION 
496 
497 004000 PB3=B1T11 :PROGRAM BOOT TRANSMIT ENABLE 3 
498 002000 PB2=B1110 PROGRAM BOOT TRANSMIT ENABLE 2 
499 001000 PB1=B119 PROGRAM BOOT TRANSMIT ENABLE 1 
500 000400 PBO=BIT8 :PROGRAM BOOT TRANSMIT ENABLE 0 
501 000010 P13=B1T3 :PROGRAM INTERRUPT TRANSMIT ENABLE 3 
502 000004 P12=BI1T2 :PROGRAM INTERRUPT TRANSMIT ENABLE 2 
503 000002 P]1=B1T1 PROGRAM INTERRUPT TRANSMIT ENABLE 1 
os 000001 P10=B1T0 PROGRAM INTERRUPT TRANSMIT ENABLE 0 
oe :PGCS BIT DEFINITIONS | 
508 100000 ERR=BI115 sERROR 
509 040000 GRJ=BI114 :G0 REJECT 
510 620000 PGMR=B1113 :PGTE MODIFICATION REFUSED 





2 
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010000 STMR=B1T12 STTE MODIFICATION REFUSED 
004000 PRDY=BIT11 :PG READY 
000000 $1D0=0 sSELF 1D 0 
000400 $101=B118 sSELF 1D 1 
001000 $1D2=B119 soaee 1D 2 
001400 SID3=BIT9+B1T8 ;SELF 1D 3 
000010 1P=B1T3 INTERRUPT PENDING IP=ERR+FLAGS 
000004 1E=B1T2 :11ST INTERRUPT ENABLE 
000002 PTP=BIT1 :PGTE PARITY BIT 
000001 GO=B1T0 ;GENERATE BOOT/INTERRUPT 
sSTTE BIT DEFINITIONS 
004000 $83=B1111 SANITY TIMER BOOT TRANSMIT ENABLE 
002000 $B2=B1T10 SANITY TIMER BOOT TRANSMIT ENABLE 
001000 $B1=B119 SANITY TIMER BOOT TRANSMIT ENABLE 
000400 $B0=B118 SANITY TIMER BOOT TRANSMIT ENABLE 0 
000010 $13=B113 ;SANITY TIMER INTERRUPT TRANSMIT ENABLE 3 
000004 $12=B1T2 SANITY TIMER INTERRUPT TRANSMIT ENABLE 2 
000002 $12=B1T1 SANITY TIMER INTERRUPT TRANSMIT ENABLE 1 
000001 $10=B1T0 SANITY TIMER INTERRUPT TRANSMIT ENABLE 0 
;STCS BIT DEFINITIONS 
000010 TMO=B113 TIMER EXPIRED 
000004 LKE=BI1T2 ;LOCKUP ENABLE 
000002 STP=BIT1 :STTE PARITY BIT 
000001 ENB=B1T0 SANITY TIMER ENABLE 
7 IMSK BIT DEFINITIONS 
004000 BM3=B1111 ;BOOT INHIBIT 3 
002000 BM2=B1110 ;BOOT INHIBIT 2 
001000 BM1=BIT9 ;BOOT INHIBIT 1 
000400 BMO=B1T8 ;BOOT INHIBIT 0 
000010 1M3=B113 INTERRUPT INHIBIT 3 
000004 IM2=B1T2 INTERRUPT INHIBIT 2 
000002 1M1=B1T1 INTERRUPT INHIBIT 1 
000001 1M0=B1T0 INTERRUPT INHIBIT 0 
PGF BIT DEFINITIONS 
004000 PBF 3=B1T1 PROGRAM GENERATED BOOT FLAG 3 
002000 PBF 2=BI1T1 PROGRAM GENERATED BOOT FLAG 2 
001000 PBF 1=B119 PROGRAM GENERATED BOOT FLAG 1 
000400 PBFO=B118 PROGRAM GENERATED BOOT FLAG 
000010 PIF 3=B1T3 ;PROGRAM GENERATED INTERRUPT FLAG 3 
000004 PIF2=BIT2 ;PROGRAM GENERATED INTERRUPT FLAG 2 
000002 PIFI=BIT1 ;PROGRAM GENERATED INTERRUPT FLAG 1 
000001 P1FO=B1T0 ;PROGRAM GENERATED INTERRUPT FLAG 0 
;STF BIT DEFINITIONS 
000010 SBF 3=B113 sSANITY TIMER GENERATED BOOT FLAG 3 
000004 SBF 2=BIT2 SANITY TIMER GENERATED BOOT FLAG ¢ 
000002 SBF 1=B111 SANITY TIMER GENERATED BOOT FLAG 1 
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000001 


000001 


004000 


000001 


004000 


000001 


004000 


000016 


005726 
022626 
000200 
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18-JUN 
REGISTER DEFINITIONS 
SBFO=B1T0 sSANITY TIMER GENERATED BOOT FLAG 0 
S1F3=B1T3 SANITY TIMER GENERATED INTERRUPT FLAG 3 
SIF2=B1T2 SANITY TIMER GENERATED INTERRUPT FLAG 2 
S1F1=B1T1 SANITY TIMER GENERATED INTERRUPT FLAG 1 
$1F0=B1T0 SANITY TIMER GENERATED INTERRUPT FLAG 0 
:DCF BIT DEFINITIONS 
BRK3=B1111 DISCONNECT OR POWER LOSS STATE OF 11ST 
BRK2=B1110 DISCONNECT OR POWER LOSS STATE OF IIST 
BRK1=B1T9 DISCONNECT OR POWER LOSS STATE OF IIST 
BRKO=B118 ;DISCONNECT OR POWER LOSS STATE OF 1!ST0 
DCF 3=B113 :DCLO/DISCONNECT INTERRUPT FLAG 3 
DCF2=BIT2 sDCLO/DISCONNECT INTERRUPT FLAG 2 
DCF1=B1T1 ;DCLO/DISCONNECT INTERRUPT FLAG 1 
DCFO=B1T0 ;DCLO/DISCONNECT INTERRUPT FLAG 0 
sEXC BIT DEFINITIONS 
U13=B1111 ;UNEXPECTED VALID INPUT FLAG 3 
U12=81110 ;UNEXPECTED VALID INPUT FLAG 2 
U11=B119 UNEXPECTED VALID INPUT FLAG 1 
U10=B1T8 UNEXPECTED VALID INPUT FLAG 0 
RTE3=B113 UNEXPECTED INVALID INPUT FLAG 3 
RTE2=BIT2 UNEXPECTED INVALID INPUT FLAG 2 
RTE1=B1T1 UNEXPECTED INVALID INPUT FLAG 1 
RTEO=B1T0 UNEXPECTED INVALID INPUT FLAG 0 
sMTC BIT DEFINITIONS 
MTYP=BIT11 MNT TYPE BIT.O=PG; 1=ST 
MFRM=B1110 MNT FRAME BIT.O=NORMAL; 1=FRAMING ERROR 
M1D0=0 MNT ID 0 
M1D1=B1T8 MNT 10 1 
MID2=B119 ;MNT ID 2 
MID3=B119+B1T8 ;MNT ID 3 
DSBT=B1T3 ;DISABLE BOOT 
MENB=BIT2 ENABLE B11-8 OF MNT 
MLEN=B1T1 sENABLE MAINT. LOOP (IDLE XMIT DRIVERS) 
MDSD=B1T0 DISABLE XMIT DRIVER (CAUSE A BREAK) 


TMT=DSBT+MENB*MLEN 
OTHER DEFINITIONS 
POP=5726 


POPPOP-22626 
CRLF =200 





Hn 


SEQ 0021 
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615 -SBTTL TEST MACRO DEFINITIONS 
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002024 


002024 


002156 


002164 


002212 
002220 


002222 


002246 
002252 
002256 
002274 
002274 
002512 
002316 


002532 
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012706 


37 


012737 
012637 


005037 
132737 
001403 
012737 


005227 
001070 
022737 
001464 
104401 


005737 
001012 
123727 
001406 


001100 
001140 
001100 
032174 


002156 


000004 
002224 
177570 
177570 
177777 


002232 
000176 
000174 
000004 


001236 
000200 


001252 


177777 
032140 
002360 
000042 
001250 


001251 
001140 


000042 


000001 


x 
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TEST MACRO DEFINITIONS SEQ 0023 


START: 
~SBTTL INITIALIZE THE COMMON TAGS 
7;CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV #SCATAG RO 7;FIRST LOCATION TO BE CLEARED 
CLR (R6)+ ;;CLEAR MEMORY LOCATION 
CMP #SWR,R6 ; ;DONE? 
os 6 ;;LOOP BACK IF NO 
SP 3;SETUP THE STACK POINTER 


WSTACK 
:: INITIALIZE A FEW VECTORS 
#SSCOPE ,a#1OTVEC Ai VECTOR FOR SCOPE ROUTINE 
HOV #340 ,a#iOTVEC+2 ;:LEVE 
MOV WSERROR ,QMEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
MOV #340 ,aWEMTVEC+2 ;:LEVEL 7 
MOV #STRAP,@#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
MOV #340 ,a#TRAPVEC+2;LEVEL 7 
MOV #SPURDN as PURVEC sien FAILURE VECTOR 
MOV #340, ,a#PWRVEC+2 e3Le VEL 7 
MOV SENDCT ,SEOPCT ;SETUP END-OF -PROGRAM COUNTER 


CLR STIMES INITIALIZE NUMBER OF ITERATIONS 

CLR SESCAPE 7;CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX ;;ALLOW ONE ERROR PER TEST 

MOV Cape ee +s INITIALIZE THE LOOP ADDRESS FOR SCOPE 


MOV , SLPERR ;SETUP THE ERROR LOOP ADDRESS 
7:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;EQUAL TO A ‘“'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 

MOV @WERRVEC,-(SP) ;;SAVE ERROR VECTOR 

MOV #6O4$,aMERRVEC 3;SET UP ERROR VECTOR 


MOV #DSWR,SWR :;SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
CMP #-1,aSWR 77 TRY TO REFERENCE HARDWARE SwWR 
BNE 66% :;BRANCH IF NO TIMEOUT TRAP OCCURRED 
::AND THE HARDWARE SWR 1S NOT = -1 
BR 65$ > BRANCH IF NO TIMEOUT 
643: “44 #65$, (SP) :;SET UP FOR TRAP RETURN 
RT 
65$: MOV #SWREG, SWR ::POINT TO SOFTWARE SwR 
MOV #DISPREG, DISPLAY 
668: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
CLR $PASS :;CLEAR PASS COUNT 
BITB WAPTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
BEQ 67% ::YES,USE NON-APT SWITCH 
MOV #SSWREG,SWR ::NG,USE APT SWiTCH REGISTER 


67$: 
-SBTTL TYPE PROGRAM NAME 
:: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC #-) ssFIRST TIME? 


BNE 38 > BRANCH IF NO 
CMP #SENDAD ,a#42 spACT=$11? 
eee 68% Hoe IF YES 
TYPE 69% TYPE ASCIZ STRING 
. SBTIL et VALUE FOR SOF TWARE SuITCH REGISTER 
TST a#d2 > ARE WE RUNNING UNDER XXDP/ACT? 
BNE 70¢ > :BRANCH IF YES 
CMPB SENV,#1 >; ARE WE RUNNING UNDER APT? 
BEQ 70% > ;BRANCH IF YES 


SEEN re RS ee 
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002334 


002356 
002462 
002462 
002470 


092476 


002640 


002644 
002650 


002654 
002662 


002762 


002762 
002770 
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023727 


000441 


000434 


012737 
005037 
000137 


005037 
000137 


012737 
000137 
005737 
001026 


104401 
000411 


013700 


000170 


003006 
005216 


001140 


000001 


000006 
000004 


025016 
023644 
177777 
032140 
002536 


000340 
025022 
002666 


025016 
002024 


000001 
002024 
000042 
002702 


025020 
002762 
001225 
025020 
003540 


003040 


MACY11 sentinite™ 
724 


000176 


001134 


000004 
000006 


000042 


177776 


025016 


002742 


003130 


sts JUN-79 


L.@ 
14:32 PAGE 15-1 


T VALUE FOR SOFTWARE SWITCH REGISTER 


CMP 
BNE 
GTSWR 
BR 
MOVB 


SWR ,#SWREG 7; SOFTWARE SWITCH REG SELECTED? 
71$ ;;BRANCH IF NO 

I$ 33GET SOFT-SWR SETTINGS 

#1, SAUTOB 3;SET AUTO-MODE INDICATOR 


;GET OVER THE ASCIZ 


68$ 
<CRLF>#DIPII-A dist) SINGLE-INTERFACE DIAGNOSTIC 


96,4 ;SET TO TRAP 

#4 ,6 :0N AN al 

PC,$SIZE SIZE MEMO 

PARFLG ;SEE IF PARAMETERS. 10 BE INPUT 
1$ ;SKIP_ IF NOT 

eden [GET PARAMETERS 

#-1 


2$ FIRST TIME? 

WSENDAD ,a#42 sACT-114 

2$ ;DON'T PRINT IF YES. 

, 73% ie TYPE ASCIZ STRING 
;GET OVER THE ASC 


72% SC1Z 
<CRLF>/START AT d64 TO SELECT NEW PARAMETERS OR RUNNING MODE/<CRLF> 


#340 ,PSW RISE PRIORITY 
STCCNT s INITIALIZE S.1. COUNT VALUE. 
BEGIN :GO START TESTING 


;COME HERE ON START AT 200 


NOPAR: CLR PARFLG ;CLEAR PARAMETER FLAG 
JMP START 3G0 10 STARTUP 
;COME HERE ON START AT 204 
SELPAR: MOV #1,PARFLG sSET PARAMETER FLAG 
JMP START 
BEGIN: TST a#42 ;ARE WE IN ACT? 
BNE 3$ z1F YES, DON'T PRINT. 
TYPE 65% ii TYPE ASCIZ STRING 
R 64$ 3;GET on THE ASCIZ 
Tage ASCIZ <CRLF>/RUNNING IN’ MODE / 
4$: 
MOV CONF 1G,RO 7GET SELECTED MODE CODE. 
ASL RO sMAKE WORD INDEX 
ore MTAB(RO),2$ ;GET ADDRESS OF MESSAGE TO PRINT. 
Y 
23: WORD 0 
TYPE CRLF sNEWLINE. 
3$: MOV CONF 1G,RO 
ASL RO 
JMP aD TAB(RO) 7G0 TO SELECTED TEST. 


1$: 
Un yy OF POINTERS TO MESSAGES 


. WORD 


TTMGO,TIMGI, TTMG2,TIMG3 


SEQ 0024 | 


MAINDEC-11-CRI 1A-Ba<C 
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CRIIAB.P11 18-JUN-79 14:24 T VALUE FOR SOFTWARE SWITCH ‘REGISTER SEQ 0025 


002772 003303 003342 003414 - WORD TINGS , TTMGS ,TING6, TTHG7 
003000 003460 
003002 003516 «WORD TTMG10 


000010 CNFMAX: .-MTAB-2/2 sMAXIMUM SELECTION CODE ALLOWED. 
MESSAGES DESCRIBING THE CODES: 
020060 046450 ett t TTIMGO: .ASCIZ /9 <MAINTENANCE-MODE ONLY)/ 


042117 
047117 054514 


051450 040524 : ASC (STANDALONEONLINE TO BUS; ISOLATE FROM OTHER I1ST'S)/ 


052123 051447 
047450 046116 = « (ONLINE TO 11ST BUS; OTHER IIST'S ISOLATED OR IDLE)/ 


(ONLINE TO 11ST BUS; OTHER IIST'S MIGHT BE ACTIVE) / 


(MAINT.-MODE SELF-BOOT TEST)/ 


042524 
046450 + (MULTI=PROC DIALOG-INITIATED BOOT TEST)/ 


(SANITY=TIMEQUT HALT=FREEZE TEST)/ 
003422 052111 





2 
speaneancanent™ J ates -79 14:32 PAGE 15-3 
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CRILAB.P11 18-JUN-79 Nese T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0026 
003430 042515 052517 020124 
003436 040510 052114 043055 
003444 042522 055105 020105 
003452 042524 052123 000051 

759 003460 020067 046450 047101 TITMG7: .ASCIZ /7 (MANUAL CONTROL PANEL TEST)/ 

003466 040525 020114 047503 
003474 052116 047522 020114 
003502 040520 042516 020114 
003510 042524 052123 00005 


1 
760 003516 030061 024040 041525 TTMG10: .ASCIZ /10 (SCOPE LOOPS)/ 
003532 050117 024523 000 


761 003540 -EVEN 
762 
763 ;DISPATCH TABLE: 


764 003540 003562 003562 003562 DIAB: 1TST1, S11, (STI, TST 


765 003550 025030 026160 027500 MMBOOT, MPDIBT, STHLT, MCP 
003556 027750 
766 003560 030160 SLOOPS 





8 
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CRIIAB.P11 18-JUN-79 14:24 SEQ 0027 
769 -SBTTL 
770 ~ SBTTL 
771 -SBTTL BASIC REGISTER TESTS 
772 - SBTTL 
773 
774 pp eeeeerererereerererereerrerrerrerereereeeenerereneneerenerereTse 
(3) s*TEST 1 ACR (BIT3-0) WRITE-READ TEST USING A COUNT PATTERN 
(3) -@eeeeeererererterererrereererrerrerereeeeneeketeeeteeeeeeererterese 
(2) 003562 000004 i811: SCOPE 
775 003564 004737 023454 JSR PC, CLEAR ;CLEAR THE WORLD 
776 003570 012737 003604 001110 MOV # i$, SLPERR ;SET SCOPE LOOP POINTER 
777 003576 012737 000017 001124 MOV #17, $GDDAT sINIT EXPECTED TC 17 
778 003604 013777 001124 021120 18: MOV SGDDAT ,@ACR LOAD ACR WITH SGDDAT 
779 003612 017737 021114 024750 MOV @ACR,DISPLY sREAD ACR 
780 003620 013737 024750 001126 MOV DISPLY,$BDDAT ;COPY ACR INTO $BDDAT 
71 003626 042737 177760 001126 BIC #-<17+1>, SBODAT;CLEAR ALL BUT BITS UNDER TEST 
782 003634 023737 001124 001126 CMP SGDDAT,SBDDAT ;CHECK Son LOADED AGAINST BITS READ 
783 003642 001403 BEQ 2$ ; SKIP 
784 003644 104001 ERROR+ 1 7 ACR BiT3- "0 LOAD-READ ERROR 
785 003646 004737 023526 JSR PC ,DMPREG 
786 003652 005237 001124 2$: INC SGDDAT ;BUMP EXPECTED 
787 003656 042737 177760 001124 BIC #-<17+1>,$GDDAT ;MASK TO BITS UNDER TEST 
788 003664 023727 001124 000017 CMP $GDDAT,#17 ;DONE ALL? 
789 003672 001344 BNE 1$ :TEST AGAIN IF NO 
790 003674 012737 003702 001110 MOV #3%,SLPERR ;CHANGE LOOP CONTROL 
791 003702 012777 000017 021022 3%: MOV #17,@ACR ;SET ALL BITS 
792 003710 012777 100000 021014 MOV WCLR,@ACR ;CLEAR THE WORLD 
793 003716 017737 021010 024750 MOV @ACR,DISPLY ;READ ACR 
794 003724 032737 009017 024750 BIT #17,D1SPLY ; CHECK BIT3-0 IN ACR FOR 0 
795 003732 001403 BEQ TST2 ;SKIP_ IF RESET CLEARED B113-0 IN ACR 


796 003734 104002 ERROR+ 2 :B113- -0 IN ACR WERE NOT CLEARED BY RESET 
797 003736 004737 023526 JSR PC ,DMPREG 


a, 
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003742 


004266 
004274 
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000004 


002633 


024750 


001126 


023526 


024750 


001126 


023526 


020620 
001126 


023526 
024750 
000000 
020560 
001126 


023526 
024750 


001126 


023526 
024750 
001124 
024750 


000011 
003764 
024750 


001124 
001110 
020740 


020672 
020670 
001126 
001124 


020632 


001124 


020572 


001124 


020532 
020532 
001126 
001124 


000011 


001124 
000020 


. 
ee 


18-JUN-79 


s*TEST 2 


TST2: 


1$: 


2s: 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


14:32 PAGE 17 
CHECK ACR AUTO-INCREMENT LOGIC 


*wmereerereererertereereerereeererererererrererereeereeeeeeeeeeeeee 


CHECK ACR AUTO-INCREMENT LOGIC 


pp etereeerererrerreererercrerererereretereenerenreneeenerererTees 


DISPLY 

#1, SGDDAT 
#1S,SLPERR 
DISPLY,@ACR 
@ADR 


#5 ,RO 
@ACR, SBDCAT 
re noseeen 


45 
PC,DMPREG 
RO 


2$ 
DISPLY,@ACR 
@ADR 


#0, 
@ACR,SBDDAT 
em mats 


45 

PC ,DMPREG 
DISPLY,@ACR 
#-1,@ADR 
@ACR,SBDDAT 
reopens 


45 

PC ,,DMPREG 
DISPLY,@ACR 
#0,@A0R 
@ACR,SBDDAT 
appa ae 


45 

PC ,DMPREG 
DISPLY,@ACR 
#0,@ADRH 
@ACR,SBDDAT 
Sealer among 


45 

PC ,DMPREG 
DISPLY 
$GDDAT 
DISPLY,#11 
1$ 


8$ 
#11, $GDDAT 
1$ 
DISPLY,#20 
1$ 


START INITIAL ACR LOAD VALUE AT 0 
sINIT EXPECTED VALUE TO 1. 

:SET SCOPE LOOP POINTER 

;LOAD ACR WITH INITIAL VALUE. 

;00 A DATI TO ADR 

;SET LOOP ets FOR REPEAT READS. 
:GET ACR CONTENT 

; CHECK LOWER BYTE (ACCESS CODE) 
:FOR INCREMENT OR NOT. 

;ACR AUTO-INCR ERROR 


;LOOP TO READ ACR SEVERAL TIMES 
; TO MAKE SURE IT DOESN'T CHANGE 
;LOAD ACR WITH INITIAL VALUE. 
;D0 DATO TO ADR 

GET ACR CONTENTS 

7CHECK LOWER BYTE (ACCESS CODE) 
;FOR INCREMENT OR NOT. 

;ACR AUTO-INCR ERROR 


;LOAD ACR WITH INITIAL VALUE. 
;D0 DATIP-DATO INTO ADR 

3;GET ACR CONTENTS 

;CHECK LOWER BYTE (ACCESS CODE) 
FOR INCREMENT OR NOT. 

;ACR AUTO-INCR ERROR 


;LOAD ACR WITH INITIAL VALUE. 
;00 DATOB TO LOW BYTE OF ADR 
;GET ACR CONTENTS 

:CHECK LOWER BYTE (ACCESS CODE) 
FOR INCREMENT OR NOT. 

;ACR AUTO-INCR ERROR 


;LOAD ACR WITH INITIAL VALUE. 
;D0 DATOB TO HIGH BYTE OF ADR 
;GET ACR CONTENTS 

sCHECK LOWER BYTE (ACCESS CODE) 
FOR INCREMENT OR NOT. 

;ACR AUTO-INCR ERROR 


:BUMP INITIAL VALUE. 
‘BUMP EXPECTED VALUE 
“LOOP THRU CODE 0-10 FIRST (AUTO=INCREMENT) 


CODES 11-17 DO NOT INCREMENT. 
$0 SET INITIAL & EXPECTED EQUAL. 


;ARE WE DONE? 
;LOOP IF NOT. 


SEQ 0028 
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104004 
004737 
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023454 


001124 


023526 
000400 
170377 
001124 


004434 


007400 


023526 


001110 


001126 


001124 
001124 
007400 


001110 
020270 
020266 


020250 
024750 
024750 


18-JUN-79 14:32 PAGE 1 


8 
PGTE (BIT11-8) WRITE-READ TEST USING PGTE COUNT PATTERN 


SEQ 0029 


sy eetetererrererrerereerererereererererererereeeeereKereeeeererereee 


s*TEST 3 


PGTE (BIT11-8) WRITE-READ TEST USING PGTE COUNT PATTERN 


-@eererrerereerrererererereerrerterererererereretenreteeeeteeereeeeese 


ié13: SCOPE 
JSR PC,CLEAR 
MOV #1S,SLPERR 
MOV #7400, $GDDAT 
1$: MOV #PGTEE,@ACR 
MOV SGDDAT ,aPGTE 
MOV #PGTEE,@ACR 
MOV @PGTE ,DISPLY 
MOV DISPLY, SBDDAT 
BIC #-<7400+1>, 
CMP SGDDAT , SBDDAT 
BEQ 2$ 
ERROR+ N 
JSR PC,DMPREG 
28: ADD #B118,$GDDAT 
BIC #-<7400+1>,$GDDAT 
CMP $GDDAT, #7400 
BNE 1$ 
MOV #3$,SLPERR 
3$: MOV #PGTEE,@ACR 
MOV #7400,aPGTE 
JSR PC,CLEAR 
MOV #PGTEE,@ACR 
MOV @PGTE ,DISPLY 
BIT #7400,DISPLY 
BEQ 4% 
ERROR+ N 
JSR PC ,DMPREG 
4$: 


;CLEAR THE WORLD 
;SET SCOPE LOOP POINTER 
sINIT EXPECTED TO 7400 
;SET ADR TO PGTE 
LOAD PGTE WITH SGDDAT 
RESET ADR TO PGTE 
;READ PGTE 
;COPY PGTE INTO SBDDAT 
SBDDAT; CLEAR ALL BUT BITS UNDER TEST 


; CHECK BITS LOADED AGAINST BITS READ 


SKIP IF OK 
;PGTE B1T11-8 LOAD-READ ERROR 


;BUMP EXPECTED 


;MASK TO BITS UNDER TEST 


DONE ALL? 

; TEST AGAIN IF NO 

7; CHANGE LOGP CONTROL 
RESET ADR TO PGTE 


SET ALL BITS 


;CLEAR THE WORLD 

;SET ADDR TO PGTE 

;READ PGTE 

CHECK BI1T11-8 IN PGTE FOR 0 
SKIP IF RESET CLEARED BIT11-8 IN PGTE 
7B1T11-8 IN PGTE WERE NOT CLEARED Ry RESET 


oe 
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CRIIAB.P11 18-JUN-79 14:24 14 PGTE (BI1T3-0) WRITE-READ TEST USING PGTE COUNT PATTERN SEQ 0030 
856 ppeeteerererrererererertererrererererrereereerenereeererereeeeerete 
(4) s*TEST 4 PGTE (B113-0) WRITE-READ TEST USING PGTE COUNT PATTERN 
(4) sp eteerererererrrerererrererererererterereeeeeenereenerereneneeeese 
(3) 004506 000004 TST4: SCOPE 
(1) 004510 004737 023454 JSR PC,CLEAR sCLEAR THE WORLD 
(1) 004514 012737 004530 001110 MOV #1$,SLPERR ;SET SCOPE LOOP POINTER 
(1) 006522 012737 000017 001124 MOV #17, $GDDAT : INIT EXPECTED TO 17 
(1) 004530 012777 000000 020174 I$: MOV #PGTEE,@ACR :SET ADR TO PGTE 
(1) 0045 013777 001124 020172 MOV SGDDAT,aPGTE :LOAD PGTE WITH S$SGDDAT 
(1) 004544 012777 000000 020160 MOV #PGTEE ,@ACR [RESET ADR TO PGTE 
(1) 004552 017737 020160 024750 MOV @PGTE .DISPLY READ PGTE 
(1) 0046560 013737 024750 001126 MOV DISPLY,SBDDAT sCOPY PGTE INTO SBDDAT 
(1) 004566 042737 177760 001126 BIC #-<17+1>, SBDDAT; CLEAR ALL BUT BITS UNDER TEST 
(1) 006574 023737 001124 0061126 CMP SGDDAT,SBDDAT 3; CHECK get LOADED AGAINST BITS READ 
(1) 004602 001403 BEQ 23 SKIP IF 
(1) 004604 104005 ERROR+ WN :PGTE ots 0 LOAD-READ ERROR 
(1) 004606 004737 023526 JSR PC ,DMPREG 
(1) 006612 062737 000001 001124 28: ADD #B1T0,S$GDDAT sBUMP EXPECTED 
(1) 0046620 042737 177760 001124 BIC #-<17+1>,$GDDAT ;MASK TO BITS UNDER TEST 
(1) 004626 023727 001124 000017 CMP SGDDAT,#17 :D0 NE ALL 
(1) 0046634 001335 BNE 1$ TEST mhin IF NO 
(1) 004636 012737 004644 001110 MOV #3$,SLPERR « CHANGE LOOP CONTROL 
(1) 004644 012777 000000 020060 38: MOV #PGTEE,@ACR SRESET ADR TO PGTE 
(1) 004652 012777 000017 020056 MOV #17, aPGTE 7SET ALL BITS 
(1) 004660 004737 023454 JSR PC,CLEAR sCLEAR THE WORLD 
(1) 004664 012777 000000 020040 MOV #PGTEE,@ACR :SET ADDR TO PGTE 
(1) 004672 017737 020040 024750 MOV @PGTE,DISPLY READ PGTE 
(1) 004700 032737 000017 024750 BIT #17,DI1SPLY :CHECK B11T3-0 IN PGTE FOR 0 
(1) 004706 001403 BEQ 4$ SKIP IF RESET CLEARED B113-0 IN PGTE 
(1) 004710 104006 ERROR+ N :B1T3-0 IN PGTE WERE NOT CLEARED BY RESET 
(1) 004712 004737 023526 JSR PC, MPREG 
(1) 004716 4$: 
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CRIIAB.P11  18=JUN-79 Ne: oh 15 TEST THAT IE (PGCS BIT2) CAN BE SET SEQ 0031 
858 prerrererererererrererrerrrrereerereeeeAereeerenereererererereeet 
(4) TeTEST 5 TEST THAT IE (PGCS B1T2) CAN BE SET 
(4) i eeeereererereerreeeerererereererrererrerereeerereeetereeererere 
(3) 004716 000004 1S15: SCOPE 
(1) 006720 004737 023454 JSR PC,CLEAR :CLEAR THE INTERFACE 
(1) 0047246 012777 000001 020000 MOV #PGCSE ,@ACR [SET ADR TO P 
(1) 006732 012777 000004 017776 MOV #1E,aPGCS :SET Te iN PGCS 
(1) 004740 012777 000001 017764 MOV #PGCSE ,@ACR ;RESET ADR TO PGCS 
(1) 006746 017737 017764 024750 MOV @PGCS,DISPLY | ;READ PGCS 
(1) 004754 032737 000004 024750 BIT WIE, DISPLY SCHECK FOR IE=1 
(3) 004762 001003 BNE TST6 :;SKIP IF 1E 1S SET IN PGCS 
(1) 004764 104007 ERROR+ N :1E (PGCS BIT2) CANNOT BE SET 
() 004766 -904737-—023526 —~--. omen JSR PC ,DMPREG 
(5) pp eeereeeererereerrrererreerererterreetrentenereneeeeeeereererete 
(4) TTEST 6 TEST THAT IE (PGCS B1T2) CAN BE CLEARED 
(4) speeeeeerererrerererererererrerrererererereeneeteeeeeeeneeeneeeee 
(3) 004772 000004 1ST6: SCOPE 
(1) 006774 012777 000001 017730 MOV WPGCSE ,@ACR :SET ADDRESS TO PGCS 
(1) 005002 012777 000004 017726 MOV WIE ,aPGCS :SET IE IN PGCS 
005010 012777 000001 017714 MOV #PGCSE ,@ACR ;SET ADDRESS To Pocs 
005016 042777 000004 017712 BIC #1E,aPGCS :CLEAR IE IN PGCS 
005024 012777 000001 017700 MOV #PGCSE ,@ACR :SET ADDRESS TO PGCS 
005032 017737 017700 024750 MOV @PGCS,DISPLY | :READ PGCS 
005040 032737 000004 024750 BIT #1E,DISPLY :CHECK FOR 1E=0 
005046 001403 BEQ 1ST? :;SKIP IF IE 1S CLEAR IN PGCS 
005050 104010 ERROR*+ N :1£ (PGCS BIT2) CANNOT BE CLEARED 
005052 004737 023526 JSR PC ,DMPREG 


;BY WRITING IT T0 0 


ppt eeerererrerereerrerererterererererereeneeeeeeenenereeReeeeeee Ts 


s*TEST 7 TEST THAT IE (PGCS BIT2) CAN BE CLEARED BY RESET 
sp eeeeererererererereerererereerereerereneeneereneneeneneeneeeeee 
005056 000004 TST7: SCOPE 
005060 012777 000001 017644 MOV #PGCSE ,@ACR SET ADDRESS TO PGCS 
005066 012777 000004 017642 MOV #1E,aPGCS ;SET IE IN PGCS 
005074 004737 023454 JSR PC,CLEAR ;CLEAR THE INTERFACE 
005100 012777 000001 017624 MOV #PGCSE ,@ACR ;SET ADR TO PGCS 
005106 017737 017624 024750 MOV aPGCS,DISPLY ;READ PGCS 
005114 032737 000004 024750 BIT #1E,DISPLY ;CHECK FOR IE=0 
005122 001403 BEQ TST10 i; SKIP 1S 1E IS CLEARED BY RESET IN PGCS 
005124 104011 ERROR*+ N ;1E (PGCS BIT2) CANNOT BE CLEARED By RESET 


Pe ee a el ee ee ee ee ed ed ed ee 
eee ee ee Pe ea ee 
Oe ed 


005126 004737 023526 JSR PC ,DMPREG 


CRIIAB.P11 18-JUN-79 14:24 110 TEST THAT PTP (PGCS BIT1) CAN BE SET 


860 ppeeeereereerererecererrereeerrererereeetereeereneetererereeeeeee 
(4) 3*TEST 10 TEST THAT PTP (PGCS BIT1) CAN BE SET 
(4) sp eerereerererrererereerrrrereetereerterereeererereeerererereeeTe 
(3) 005132 000004 TST10: SCOPE 
005134 004737 023454 JSR PC,CLEAR 4 ge THE INTERFACE 

17564 MOV #PGCSE ,@ACR ;SET ADR TO PGCS 
17562 MOV #PTP ,aPGCS 3;SET PTP IN PGCS 
17550 MOV #PGCSE ,@ACR ;RESET ADR TO PGCS 
24750 MOV @PGCS,DISPLY READ PGCS 
24750 BIT #PTP,DISPLY CHECK FOR PTP=1 

BNE TST11 3;SKIP IF PTP IS SET IN PGCS 

005200 10401 ERROR+ N ;PTP (PGCS BIT1) CANNOT BE SET 
005202 004737 023526 JSR PC ,DMPREG 


ppeeeerererrerereerererererrererereererereerereeeeeeeneererereete 
:*TEST 11 TEST THAT PTP (PGCS BIT1) CAN BE CLEARED 
pp eeeeerereererererererrtrererererreeerrerererereeneerereeererere 
005206 000004 TST11: SCOPE 
4 MOV #PGCSE ,@ACR ;SET ADDRESS TO PGCS 
2 MOV #PTP,aPGCS 3SET PTP IN PGCS 
0 MOV #PGCSE ,@ACR 7 SET ADDRESS TO PGCS 
2777 000002 017476 BIC #PTP,aPGCS ;CLEAR PTP IN PGCS 
12777 000001 017464 MOV #PGCSE ,@ACR 7SET ADDRESS TO PGCS 
005246 017737 017464 024750 MOV aPGCS,DISPLY ;READ PGCS 
005254 032737 000002 024750 BIT #PTP,DISPLY :CHECK FOR PTP=0 
005262 001403 BEQ TST12 SKIP IF PTP IS CLEAR IN PSCS 
005264 104013 ERROR+ N ;PTP (PGCS BIT1) CANNOT BE CLEARED 
005266 004737 023526 JSR PC ,DMPREG 


7 
7 
7 
7 000002 
3 
2 
005210 012777 000001 


:BY WRITING IT TO 0 


EEE EEE EE PPP PAP LP PLP PPP PLP PP PP 
tt tt et et at at i I at et A os a ss 
Nee ee eee eee ee le 


speewereerererrreereeererererreereeeneeeeraneeereeeeterereneeeense 
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Sea 0032 


(4) r*TEST 12 TEST THAT PTP (PGCS Bill) CAN BE CLEARED BY RESET 

(4) sp eeeeererererrrerrererereenrrerereterereneneneteenerenerenenetee 

(3) 005272 000004 TST12: SCOPE 

(1) 005302 012777 000002 017426 MOV #PTP,aPGCS 3SET PTP IN PGCS 

(1) 005310 004737 023454 JSR PC,CLEAR ;CLEAR THE INTERFACE 

(1) 005314 012777 000001 017410 MOV #PGCSE.@ACR :SET ADR TO PGCS 

(1) 005322 017737 017410 024750 MOV aPGCS,DISPLY READ PGCS 

(1) 005330 032737 000002 024750 BIT #PTP,DISPLY :CHECK FOR PTP=0 

(3) 005336 001403 BEQ T$113 ::SKIP 1S PTP IS CLEARED BY 2ESET IN PGCS 
(1) 005340 104014 ERROR+ N :PTP (PGCS BIT1) CANNOT BE CLEARED BY RESET 
(1) 005342 004737 023526 JSR PC, DMPREG 


(1) 005274 012777 000001 017430 MOV #PGCSE ,@ACR ;SET ADDRESS TO PGCS 
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CRIIAB.P11 18-JUN-79 14:24 STTE (BIT11-8) WRITE-READ TEST USING STTE COUNT PATTERN SEQ 0035 
862 sy eerereererrereerererreereerrererererereeKereeeKeeeeerereeeereres 
(4) s*TEST 13 STTE (BIT11-8) WRITE-READ TEST USING STTE COUNT PATTERN 
(4) py trteerererrrererererererererererererereeeeKereneneetenereeeeeeese 
(3) 005346 000004 TST13: SCOPE 
(1) 005350 0046737 023454 JSR PC,CLEAR ;CLEAR THE WORLD 
(1) 005354 012737 005370 001110 MOV #1$,SLPERR ;SET SCOPE LOOP POINTER 
(1) 005362 012737 007400 001124 MOV #7400, S$GDDAT sINIT EXPECTED 10 7400 
(1) 005370 012777 000002 017334 1%: MOV #STTEE@ACR ;SET ADR TO STTE 
(1) 005376 013777 001124 017332 MOV SGDDAT ,ASTTE LOAD STTE WITH SGDDAT 
(1) 005404 012777 000002 017320 MOV #STTEE ,@ACR RESET ADR TO STIE 
(1) 005412 017737 017320 024750 MOV @STTE,DISPLY sREAD STTE 
(1) 005420 013737 024750 001126 MOV DISPLY,SBDDAT  ;COPY STTE INTO SBDDAT 
(1) 005426 042737 170377 001126 BIC #-<7400+1>, SBDDAT; CLEAR ALL BUT BITS UNDER TEST 
(1) 005434 023737 001124 001126 CMP SGDDAT,SBDDAT ;CHECK BITS LOADED AGAINST BITS READ 
(1) 005442 001403 BEQ 2$ SKIP IF OK 
(1) 005444 104015 ERROR+ N s;STTE B11T11-8 LOAD-READ ERROR 
(1) 005446 004737 023526 JSR PC ,DMPREG 
(1) 005452 062737 000400 001124 2$: ADD #B118,$GDDAT ;BUMP EXPECTED 
(1) 005460 042737 170377 001124 BIC #-<7400+1>,$GDDAT ;MASK TO B:TS UNDER TEST 
(1) 005466 023727 001124 007400 CMP $GDDAT #7400 ;DONE ALL? 
(1) 005474 001335 BNE 1$ ; TEST AGAIN IF NO 
(1) 005476 012737 005504 001110 MOV #3$,SLPERR ; CHANGE LOOP CONTROL 
(1) 005504 012777 000002 017220 3%: MOV #STTEE,@ACR RESET ADR TO STTE 
(1) 005512 012777 007400 017216 MOV #7400 ,aSTTE SET ALL BITS 
(1) 005520 004737 023454 JSR PC, CLEAR :CLEAR THE WORLD 
(1) 005526 012777 000002 017200 MOV #STTEE,@ACR ;SET ADDR TO STTE 
(1) 005532 017737 017200 024750 MOV @STTE,DISPLY sREAD STTE 
(1) 005540 032737 007400 024750 BIT #7400,DISPLY ;CHECK BIT11-8 IN STTE FOR 0 
(1) 005546 001403 BEQ 4$ SKIP IF RESET CLEARED B1111-8 IN STTE 
(1) 005550 104016 ERROR+ N 3B1T11-8 IN STTE WERE NOT CLEARED By RESET 
(1) 005552 004737 023526 JSR PC ,DMPREG 
(1) 005556 4$: 


(a 
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CRIIAB.P11  1B-JUN-79 14:24 114 STTE (BIT3-0) WRITE-READ TEST USING STTE COUNT PATTERN SEQ 0034 
864 sp eteeeeeeererrerererrrereeererererterereeeereneneeeeeeeeeeereeee 
(4) TeTEST 14 STTE (BIT3-0) WRITE-READ TEST USING STTE COUNT PATTERN 
(4) pp eeeeeerrrereeereeerrerrerererererrerteeeeerteeerenereterereeeeee 
(3) 005556 000004 TST14: SCOPE 
(1) 005560 004737 023454 JSR PC, CLEAR ;CLEAR THE WORLD 
(1) 005564 012737 005600 001110 MOV #1$, SLPERR SET SCOPE LOOP POINTER 
(1) 005572 012737 000017 001124 MOV #17. $GDDAT SINIT EXPECTED TO 17 
(1) 005600 012777 000002 017124 18: MOV WSTTEE,@ACR [SET ADR TO STTE 
(1) 005606 013777 0011246 017122 MOV SGDDAT.@STTE  :LOAD STTE WITH SGDDAT 
(1) 005614 012777 000002 017110 MOV WSTTEE@ACR :RESET ADR TO STITE 
(1) 005622 017737 017110 024750 MOV @STTE,DISPLY | :READ STTE 
(1) 005630 013737 024750 001126 MOV DISPLY,SBDDAT :COPY STTE INTO SBDDAT 
(1) 005636 042737 177760 001126 BIC #-<17+1>, $BDDAT:CLEAR ALL BUT BITS UNDER TEST 
(1) 005644 023737 001124 001126 CMP SGDDAT,SBDDAT : CHECK BITS LOADED AGAINST BITS READ 
(1) 005652 001402 BEQ 2$ SKIP IF 
(1) 005654 104017 ERROR+ N iSTTE B1T3+0 LOAD-READ ERROR 
(1) 005656 004737 023526 JSR PC ,DMPREG 
(1) 005662 062737 000001 001124 2s: ADD #BITO,SGDDAT — ;BUMP EXPECTED 
(1) 005670 042737 177760 001124 BIC #-<1741>,$GDDAT :MASK TO BITS UNDER TEST 
(1) 005676 023727 001124 000017 CMP SGDDAT #17 DONE ALL? 
(1) 005704 001335 BNE 1$ [TEST AGAIN IF NO 
(1) 005706 012737 005714 001110 MOV #3$ ,SLPERR [CHANGE LOOP CONTROL | 
(1) 005714 012777 000002 017010 38: MOV #STTEE ,QACR TRESET ADR TO STTE | 
(1) 005722 012777 000017 017006 MOV #17 ,aSTIE :SET ALL BITS 
(1) 005730 004737 023454 JSR PC,CLEAR SCLEAR THE WORLD 
(1) 005734 012777 000002 016770 MOV WSTTEE ACR SET ADDR TO SITE 
(1) 005742 017737 016770 024750 MOV @STTE.DISPLY | READ STTE 
(1) 005750 032737 000017 024750 BIT #17,DISPLY CHECK BIT3-0 IN STTE FOR 0 
(1) 005756 001403 BEQ 4$ “SKIP IF RESET CLEARED B1T3-0 IN STTE 
(1) 005760 104020 ERROR* N :B113-0 IN STTE WERE NOT CLEARED BY RESET 
(1) 005762 004737 023526 JSR PC ,DMPREG 
(1) 005766 4S: 
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CRIIAB.P11  18=JUN-79 14:24 115 TEST THAT LKE (STCS BIT2) CAN BE SET SEQ 0035 
866 sp eteerererererrererererererettrerereeeenteeeeeeeeeeeeeeeeeeeeeee 
(4) TTEST 15 TEST THAT LKE (STCS B1T2) CAN BE SET 
(4) sp eeeeererereereereerererreeteereeeereeereeeeeeeeeReeAeeeeeeeAe eee 
(3) 005766 000004 1$115: SCOPE 
(1) 005770 004737 023454 JSR PC, CLEAR ;CLEAR THE INTERFACE 
(1) 005774 012777 000003 016730 MOV WSTCSE ,@ACR :SET ADR TO STCS 
(1) 006002 012777 000004 016726 MOV #LKE ,@STCS :SET LKE IN STCS 
(1) 006010 012777 000003 016714 MOV WSTCSE ,@ACR ;RESET ADR TO STCS 
(1) 006016 017737 016714 024750 MOV @STCS,DISPLY | :READ STCS 
(1) 006024 032737 000004 024750 BIT #LKE ,DISPLY :CHECK FOR LKE=1 
(3) 006032 001003 BNE TST16 :;SKIP IF LKE 1S SET IN STCS 
(1) 006034 104021 ERROR+ N :LKE (STCS BIT2) CANNOT BE SET 
(1) 006036 004737 023526 JSR PC ,DMPREG 
(5) sp eereeeerererrereereererererereretrereKeeeeeeteRteAKeneatenteeese 
(4) TtTEST 16 TEST THAT LKE (STCS BIT2) CAN BE CLEARED 
(4) s_eteeerererereerrereterereeteeeerereeneAAeeneAKateeKeKereeeeeAes 
(3) 006042 000004 1S116: SCOPE 
(1) 006044 012777 000003 016660 MOV WSTCSE ACR :SET ADDRESS TO STCS 
(1) 006052 012777 000004 016656 MOV WLKE ,aSTCS :SET LKE IN STCS 
(1) 006060 012777 000003 016644 MOV WSTCSE,@ACR :SET ADDRESS TO STCS 
(1) 006066 042777 000004 016642 BIC #LKE ,aSTCS ;CLEAR LKE IN STCS 
(1) 006074 012777 000003 016630 MOV WSTCSE,@ACR :SET ADDRESS TO STCS 
(1) 006102 017737 016630 024750 MOV @STCS.DISPLY | :READ STCS 
(1) 006110 032737 000004 024750 BIT WLKE ,DISPLY CHECK FOR LKE=0 
(3) 006116 001403 BEQ TST17 :;SKIP IF LKE IS CLEAR IN STCS 
(1) 006120 104022 ERROR+ N “LKE (STCS BIT2) CANNOT BE CLEARED 
(1) 006122 004737 023526 JSR PC ,DMPREG 
CW) :BY WRITING IT TO 0 
(1) 

(5) so eraevererererereeererererrreeereeeerereeeenereneeeeeeeneeeeeeeese 

(4) TEST 17 TEST THAT LKE (STCS BIT2) CAN BE CLEARED BY RESET 

(4) ppeeeeerererererereererrererereerrrrterereeeeeeeaReeneneeteneeees 

(3) 006126 000004 1ST17: SCOPE 

(1) 006130 012777 000003 016574 MOV WSTCSE,@ACR SET ADDRESS TO. StCS 

(1) 006136 012777 000004 016572 MOV WLKE ,aSTCS ;SET LKE IN STCS 

(1) 006144 004737 023454 JSR PC, CLEAR ;CLEAR THE INTERFACE 

(1) 006150 012777 000003 016554 MOV WSTCSE ,@ACR :SET ADR TO STCS 

(1) 006156 017737 016554 024750 MOV ASTCS.DISPLY READ STCS 

(1) 006164 032737 000004 024750 BIT #LKE ,DISPLY ZCHECK FOR LKE=0 

(3) 006172 001403 BEQ 1$120 ;SKIP 1S LKE IS CLEARED BY RESET IN STCS 
(1) 006174 104023 ERROR+ N LKE (STCS BIT2) CANNOT BE CLEARED BY RESET 
(1) 006176 004737 023526 JSR PC ,DMPREG 





i 
MAINDEC-11-CRIIA-B MACY11 350A(1052) 18-JUN-79 14:32 PAGE 25 


CRIIAB.P11 18-JUN-79 14:24 120 TEST THAT STP (STCS BIT1) CAN BE SET SEQ 0036 
868 peeeerereerereerereererererererrereetreeeeteeetereteeeeeeeeneete 
(4) SSTEST 20 TEST THAT STP (STCS BIT1) CAN BE SET 
(4) peeeerererrerrererereeterererereeeeeteteeneneeeeeeeteeereetetes 
(3) 006202 000004 18120: SCOPE 
(1) 006206 004737 023454 JSR PC, CLEAR ;CLEAR THE INTERFACE 
(1) 006210 012777 000003 016514 MOV #STCSE ,@ACR ;SET ADR TO STCS 
(1) 006216 012777 000002 016512 MOV #STP,aSTCS ;SET STP IN STCS 
(1) 006224 012777 000003 016500 MOV #STCSE,@ACR ; RESET ADR TO STCS 
(1) 006232 017737 016500 024750 MOV @STCS,DISPLY : READ STCS 
(1) 006240 032737 000002 024750 BIT #STP,DISPLY CHECK FOR STP=1 
(3) 006246 001003 BNE TST21 7;SKIP IF STP IS SET IN STCS 
(1) 006250 104024 ERROR+ N ;STP (STCS BIT1) CANNOT BE SET 
tH 006252 004737 023526 JSR PC ,DMPREG 
(5) ppeeeenererererererererereererererererereeeteeeteteeeeeteeeteert 
(4) s*TEST 21 TEST THAT STP (STCS BIT1) CAN BE. CLEARED 
(4) ppeeeeeeeerereereeeeetereerererererereneeeeetenereneeeneeeeeReee 
(3) 006256 000004 TST21: SCOPE 
(1) 006260 012777 000003 016444 MOV #STCSE ,@ACR ;SET ADDRESS TO STCS 
(1) 006266 012777 000002 016442 MOV #STP,asTcs 3SET STP IN STCS 
(1) 006274 012777 000003 016430 MOV #STCSE ,@ACR 7 SET ADDRESS TO STCS 
(1) 006302 042777 000002 016426 BIC #STP,asTcs ;CLEAR STP IN STCS 
(1) 006310 012777 000003 016414 MOV #STCSE ,@ACR 7 SET ADDRESS TO STCS 
(1) 006316 017737 016414 024750 MOV @STCS,DISPLY ;READ STCS 
(1) 006324 032737 000002 024750 BIT #STP ,DISPLY CHECK FOR STP=0 
(3) 006332 001403 BEQ TST22 7:SKIP IF STP IS CLEAR IN STCS 
(1) 006334 104025 ERROR+ N :STP (STCS BIT1) CANNOT BE CLEARED 
(1) 006336 004737 023526 JSR PC ,DMPREG 
He :BY WRITING IT TO 0 
(1) 

(5) Ppeeeeerenreeererrerererreereeterreeeteeeet arene eeetee eee tees 

(4) *TEST 22 TEST THAT STP (STCS BiTl) CAN BE CLEARED BY RESET 

(4) Lpeeeeereererererereerererererterereereneeteeeeteneeteereteneeeee 

(3) 006342 000004 TST22: SCOPE 

(1) 006344 012777 000003 016360 MOV #STCSE ,@ACR SET ADDRESS TO STCS 

(1) 006352 012777 000002 016356 MOV #STP,aSTCs :SET STP IN STCS 

(1) 006360 004737 023454 JSR PC,CLEAR CLEAR THE INTERFACE 

(1) 006364 012777 000003 016340 MOV #STCSE ,@ACR ;SET ADR TO STCS 

(1) 006372 017737 016340 024750 MOV @STCS,DISPLY TREAD STCS 

(1) 006400 032737 000002 024750 BIT #STP,DISPLY :CHECK FOR STP=0 

(3) 006406 001403 BEQ TS123 7:SKIP IS STP IS CLEARED BY RESET IN STCS 
(1) 006410 104026 ERROR+ N :STP (STCS BIT1) CANNOT BE CLEARED BY RESET 
(1) 006412 004737 023526 JSR PC ,DMPREG 


L 
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CRIIAB.P11  1B=JUN-79 14:26 123 TEST THAT ENB (STCS BITO) CAN BE SET SEQ 0037 
870 ppeeeeereererererereererereerreererereeeeeeeeeeteeeteneetenenenes 
(4) stTEST 23 TEST THAT ENB (STCS BITO) CAN BE SET 
(4) ppeeererererrerereerererrerereerrrrerereeeerereeeeeteneeenereeeee 
(3) 006416 000004 TST23: SCOPE 
(1) 006420 004737 023454 JSR PC, CLEAR ;CLEAR THE tS he 
(1) 006424 012777 000003 016300 MOV #STCSE,@ACR :SET ADR TO STCS 
(1) 006432 012777 000001 016276 MOV WENB,aSTCS ;SET ENB IN STCS 
(1) 006440 012777 000003 016264 MOV #STCSE,@ACR ;RESET ADR TO STCS 
(1) 006446 017737 016264 024750 MOV aSTCS,DISPLY ;READ STCS 
(1) 006454 032737 000001 024750 BIT #ENB,DISPLY CHECK FOR ENB=1 
(3) 006462 001003 BNE TS124 3;SKIP IF ENB IS SET IN STCS 
(1) 006464 104027 ERROR+ N sENB (STCS BIT0O) CANNOT BE SET 
Hy 006466 004737 023526 JSR PC ,DMPREG 
(5) ppeeeeeereereeeereeererererereereereeeteereneeeeeteeeeeeeeeeetesS 
(4) S*TEST 26 TEST THAT ENB (STCS BITO) CAN BE CLEARED 
(4) peeeeeerrerrerreerererererereeeerreeteereeetereeeeetereneTteeeee 
(3) 006472 000004 i124: SCOPE 
(1) 006474 012777 000003 016230 MOV #STCSE,@ACR ;SET ADDRESS TO STCS 
(1) 006502 012777 000001 016226 MOV #ENB,aSTCS ;SET ENB IN STCS 
(1) 006510 012777 000003 016214 MOV #STCSE,@ACR sel ADDRESS TO STCcs 
(1) 006516 042777 000001 016212 BIC #WENB,aSTCS CLEAR ENB IN STCS 
(1) 006524 012777 000003 016200 MOV #STCSE,@ACR sStT ADDRESS TO STCS 
(1) 006532 017737 016200 024750 MOV aSTCS,DISPLY ;READ STCS 
(1) 006540 032737 000001 024750 BIT #ENB,DISPLY CHECK FOR ENB=0 
(3) 006546 001403 BEQ TST25 3;SKIP IF ENB IS CLEAR IN STCS 
(1) 006550 104030 ERROR+ N :ENB (STCS BITO) CANNOT BE CLEARED 
(1) 006552 004737 023526 JSR PC ,DMPREG 
4h :BY WRITING IT T0 0 
(1) 

(5) ppeeeeeerereerererearerreterrrerrreereteneeteeeeeeeeeNTeneTee eee 

(4) s*TEST 25 TEST THAT ENB (STCS BITO) CAN BE CLEARED BY RESET 

(4) ppt eeeereerrererererereretenereeererentereeeneeeeeneeeneeeeerenes 

(3) 006556 000004 TST25: SCOPE 

(1) 006560 012777 000003 016144 MOV #STCSE,@ACR ;SET ADDRESS TO STCS 

(1) 006566 012777 000001 016142 MOV #ENB,aSTCS ;SET ENB IN STCS 

(1) 006574 004737 023454 JSR PC,CLEAR ; CLEAR THE INTERFACE 

(1) 006600 012777 000003 016124 MOV #STCSE,@ACR ;SET ADR TO STCS 

(1) 006606 017737 016124 024750 MOV aSTCS,DISPLY READ SsTcs 

(1) 006614 032737 000001 024750 BIT #ENB,DISPLY ;CHECK FOR ENB=0 

(3) 006622 001403 BEQ TS126 » i:SKIP 1S ENB IS CLEARED BY RESET IN STCS 
(1) 006624 104031 ERROR+ N :ENB (STCS BIT0) CANNOT BE CLEARED BY RESET 
(1) 006626 004737 023526 JSR PC ,DMPREG 
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CRIIAB.P11 — 1B=JUN-79 14:24 126 STCS (BIT15-8) WRITE-READ TEST USING STCS COUNT PATTERN SEQ 0038 
872 ppeteerererereeeereeeeeeeeerrereerereeeeeeReeeeeteteeetetenerees 
(4) s*TEST 26 STCS (BI115=8) WRITE-READ TEST USING STCS COUNT PATTERN 
(4) ppeeeeeeerereeerererereerereerrreerterreteeeneeeeeeeeeeeeee ETT ee 
(3) 006632 000004 TST26: SCOPE 
(1) 006634 004737 023454 JSR PC, Seen ;CLEAR THE WORLD 
(1) 006640 012737 006654 001110 MOV #1$,$ 7SET SCOPE LOOP POINTER 
(1) 006646 012737 177400 001124 MOV 41774006 SGDDAT SINIT EXPECTED TO 177400 
(1) 006654 012777 000003 016050 1$: MOV #STCSE,@ACR :SET ADR TO STCS 
(1) 006662 013777 001124 016046 MOV SGDDAT,aSTCS LOAD STCS WITH $SGDDAT 
(1) 006670 012777 000003 016034 MOV #STCSE,@ACR ;RESET ADR TO STCS 
(1) 006676 017737 016034 024750 MOV astTcs, fae ;READ STCS 
(1) 006704 013737 024750 001126 MOV DISPLY, SBDDAT ;COPY STCS INTO SBDDAT 
(1) 006712 042737 000377 001126 BIC #-<177400+1>, SBDDAT; CLEAR ALL BUT BITS UNDER TEST 
(1) 006720 023737 001124 001126 CMP $GDDAT, SBDDAT :CHECK BITS LOADED AGAINST BITS READ 
(1) 006726 001403 BEQ 2$ sSKIP IF OK 
(1) 006730 104032 ERROR+ WN 7STCS BIT15-8 LOAD-READ ERROR 
(1) 006732 004737 023526 JSR PC ,DMPREG 
(1) 006736 062737 000400 001124 2$: ADD #B118,$GDDAT ;BUMP EXPECTED 
(1) 006744 042737 000377 001124 BIC #-<177400+1>,$GDDAT sMASK TO BITS UNDER TEST 
(1) 006752 023727 001124 177400 CMP $GDDAT,#177400 ;DONE ALL? 
(1) 006760 001335 BNE 1$ sTEST AGAIN IF NO 
(1) 006762 012737 006770 001110 MOV #3$,SLPERR ; CHANGE LOOP CONTROL 
(1) 006770 012777 000003 015734 38: MOV #STCSE,@ACR ;RESET ADR TO STCS 
(1) 006776 012777 177400 015732 MOV #177400,aSTCS ;SET ALL BITS 
(1) 007004 004737 023454 JSR PC,CLEAR :CLEAR THE WORLD 
(1) 007010 012777 000003 015714 MOV #STCSE,@ACR ;SET ADDR TO STCS 
(1) 007016 017737 015714 024750 MOV aSTCS,DISPLY ;READ STCS 
(1) 007024 032737 177400 024750 BIT #177400,DISPLY ;CHECK B11T15-8 IN STCS FOR 0 
(1) 007032 001403 BEQ 4% :SKIP IF RESET CLEARED B1115-8 IN STCS 
(1) 007034 104033 ERROR+ N :B11T15-8 IN STCS WERE NOT CLEARED BY RESET 
(1) 007036 004737 023526 JSR PC ,DMPREG 
(1) 007042 4$: 
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CRIIAB.P11 18-JUN-79 14:24 127 IMSK (BI1T11-8) WRITE-READ TEST USING IMSK COUNT PATTERN SEQ 0039 
874 sp etrereererrereerererererereringrrereeeteeenenterenereteeeeeeeee 
(4) s*TEST 27 IMSK (B1T11-8) WRITE-READ TEST USING IMSK COUNT PATTERN 
(4) sp ereeeeerrrrerererereeettrererereerererekenerereKeeneeeReeAe AAs 
(3) 007042 000004 TST27: SCOPE 
(1) 007044 004737 023454 JSR PC, CLEAR ;CLEAR THE WORLD 
(1) 007050 012737 007064 001110 MOV #1$,SLPERR ;SET SCOPE LOOP POINTER 
(1) 007056 012737 007400 001124 MOV #7400, $GDDAT sINIT EXPECTED TO 7400 
(1) 007064 012777 000004 015640 1$: MOV WIMSKE ,@ACR :SET ADR TO IMSK 
(1) 007072 013777 001124 015636 MOV SGDDAT ,@I1MSK [LOAD IMSK WITH S$GDDAT 
(1) - 0071 012777 000004 015624 MOV WIMSKE ,@ACR RESET ADR TO IMSK 
(1) 007106 017737 015624 024750 MOV @IMSK ,DISPLY ;READ IMSK 
(1) 007114 013737 024750 001126 MOV DISPLY,$BDDAT ;COPY IMSK INTC SBDDAT 
(1) 007122 042737 170377 001126 BIC #-<7400+1>, SBDDAT;CLEAR ALL BUT BITS UNDER TEST 
(1) 007130 023737 001124 001126 CMP $GDDAT,SBDDAT  ; CHECK BITS LOADED AGAINST BITS READ 
(1) 007136 001403 BEQ 2$ SKIP IF OK 
(1) 007140 104034 ERROR+ N ;IMSK B1T11-8 LOAD-READ ERROR 
(1) 007142 004737 023526 JSR PC ,DMPREG 
(1) 007146 062737 000400 001124 2%: ADD #8118, $GDDAT ;BUMP EXPECTED 
_ (1) 007156 042737 170377 001124 BIC #-<7400+1>, SGDDAT ;MASK TO BITS UNDER TEST 
(1) 007162 023727 001124 007400 CMP $GDDAT #7400 DONE ALL? 
(1) 007170 001335-: BNE 1$ ; TEST AGAIN IF NO 
(1) 007172 012737. 007200 001110 MOV #3$,SLPERR ;CHANGE LOOP CONTROL 
(1) 007200 012777 000004 015524 38%: MOV #IMSKE ,@ACR ;RESET ADR TO IMSK 
(1) 007206 012777 007400 015522 MOV #7400,a1MSK ;SET ALL BITS 
(1) 007214 004737 023454 JSR PC,CLEAR ;CLEAR THE WORLD 
(1) 007220 012777 000004 015504 MOV #WIMSKE ,@ACR ;SET ADDR TO IMSK 
(1) 007226 017737 015504 024750 MOV @1MSK ,DISPLY ;READ IMSK 
(1) 007234 032737 007400 024750 BIT #7400,DISPLY CHECK B1T11-8 IN IMSK FOR 0 
(1) 007242 001403 BEQ 4% ;SKIP IF RESET CLEARED B1T11-8 IN IMSK 
(1) 007244 104035 ERROR+ N ;B1111-8 IN IMSK WERE NOT CLEARED BY RESET 
(1) 007246 004737 023526 JSR PC ,DMPREG 
(1) 007252 4$: 
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CRILAB.P11 18-JUN-79 14:26 130 IMSK (BI13-0) WRITE-READ TEST USING IMSK COUNT PATTERN SEQ 0040 
876 pp etetteecererereerereererererrerererrrerererrereereeeeeeeeereeetere 
(4) s*TEST 30 IMSK (BI13-0) WRITE-READ TEST USING IMSK COUNT PATTERN 
(4) seeeeeeerererererereereerererererrereerereeeerererteeererereeeTe 
(3) 007252 000004 TS130: SCOPE 
(1) 007254 004737 023454 JSR PC,CLEAR ;CLEAR THE WORLD 
(1) 007260 012757 007274 001110 MOV #1S, SLPERR 7SET SCOPE LOOP POINTER 
(1) 007266 012737 000017 001124 MOV #17, SGDDAT sINIT EXPECTED TO 17 
(1) 007274 012777 000004 015430 18: MOV #IASKE ,@ACR 7SET APR TO IMSK 
(1) 7302 013777 001124 015426 MOV SGDDAT ,@1MSK sLOAD IMSK WITH SGDDAT 
(1) 007310 012777 000004 015414 MOV #IMSKE,@ACR ;RESET ADR TO IMSK 
(1) 007316 017737 015414 024750 MOV @1MSK ,DISPLY ;READ IMSK 
(1) 007324 013737 024750 001126 MOV DISPLY,SBDDAT  ;COPY IMSK INTO SBDDAT 
(1) 007332 042737 177760 001126 BIC #-<17+1>, SBDDAT; CLEAR ALL BUT BITS UNDER TEST 
(1) 007340 023737 001124 001126 CMP SGDDAT ,SBDDAT pny gh gh LOADED AGAINST BITS READ 
(1) 007346 001403 BEQ 2% sSKIP IF 
(1) 007350 104036 ERROR+ N : IMSK BITS. 0 LOAD-READ ERROR 
(1) 007352 004737 023526 JSR PC ,DMPREG 
(1) 007356 062737 000001 001124 2%: ADD #B1T0,$GDDAT ;BUMP EXPECTED 
(1) 007364 042737 177760 001124 BIC #-<17+1>,$GDDAT ;MASK TO BITS UNDER TEST 
(1) 007372 023727 001124 000017 CMP SGDDAT,#17 ;DONE ALL 
(1) 007400 001335 BNE 1$ TEST akin IF NO 
(1) 007402 012737 007410 001110 MOV #3$,SLPERR ; CHANGE LOOP CONTROL 
(1) 007410 012777 000004 015314 38: MOV #IMSKE,@ACR RESET ADR TO IMSK 
(1) 007416 012777 000017 015312 MOV #17, a1MSK 7SET ALL BITS 
(1) 007424 004737 023454 JSR PC,CLEAR 7CLEAR THE WORLD 
(1) 007430 912777 000004 015274 MOV #WIMSKE ,@ACR 3SET ADDR TO IMSK 
(1) 007436 017737 015274 024750 MOV @IMSK,DISPLY ;READ IMSK 
(1) 007444 032737 000017 024750 BIT #17,D1SPLY ;CHECK B1T3-0 IN IMSK FOR 0 
(1) 007452 001403 BEQ 4% :SKIP IF RESET CLEARED BIT3-0 IN IMSK 
(1) 007454 104037 ERROR+ WN 7B113-0 IN IMSK WERE NOT CLEARED By RESET 
(1) 007456 004737 023526 JSR PC ,.DMPREG 
(1) 007462 4$: 


C 
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CRIIAB.P11 —-18=JUN-79 MTC (BIT11-8) WRITE-READ TEST USING MTC COUNT PATTERN SEQ 0041 
878 pp etererecererereerererererererrerrererrreeerereeeeenereerereeeee 
(4) TeTEST 31 MTC (BIT11-8) WRITE-READ TEST USING MTC COUNT PATTERN 
(4) sp erereeererereeerreerrererererrerererererteeeeeneereeeerenereeeee 
(3) 007462 000004 15131: SCOPE 
(1) 007464 004737 023454 JSR PC, CLEAR SCLEAR THE WORLD 
(1) 007470 012737 007504 001110 MOV #18, SLPERR >SET SCOPE LOOP POINTER 
(1) 007476 012737 007400 001124 MOV #7400, 8GDDAT INIT EXPECTED TO 7400 
(1) 007504 012777 000015 015220 1$: MOV #MTCE@ACR “SET ADR TO MTC 
(1) 007512 013777 001124 015216 MOV SGDDAT ,amTC [LOAD MTC WITH SGDDAT 
(1) 007520 012777 000015 015204 MOV #MTCE @ACR “RESET ADR TO MTC 
(1) 007526 017737 015204 024750 MOV aMTC,DISPLY [READ MTC 
(1) 007534 013737 024750 001126 MOV DISPLY,$BDDAT :COPY MTC INTO $BDDAT 
(1) 007542 042737 170377 001126 BIC #-<7400+1>, SBDDAT;CLEAR ALL BUT BITS UNDER TEST 
(1) 007550 023737 001124 001126 CMP SGDDAT,SBDDAT  ;CHECK BITS LOADED AGAINST BITS READ 
(1) 007556 001403 BEQ 2$ :SKIP IF OK 
(1) 007560 104040 ERROR+ N “MTC B1T11-8 LOAD-READ ERROR 
(1) 007562 004737 023526 JSR PC, DMPREG 
(1) 007566 062737 000400 001124 28: ADD #BIT8,SGODAT  ; BUMP EXPECTED 
(1) 007574 042737 170377 001124 BIC #-<740041>, $GDDAT :MASK TO BITS UNDER TEST 
(1) 007602 023727 001124 007400 CMP $GDDAT,#7400  ;DONE ALL? 
(1) 007610 001335 BNE 1$ “TEST AGAIN IF NO 
(1) 007612 012737 007620 001110 MOV #38, SLPERR “CHANGE LOOP CONTROL 
(1) 007620 012777 000015 015104 38: MOV WMTCE@ACR “RESET ADR TO MTC 
(1) 007626 012777 007400 015102 MOV #7400, aMTC :SET ALL BITS 
(1) 007634 004737 023454 JSR PC, CLEAR SCLEAR THE WORLD 
(1) 007640 012777 000015 015064 MOV #MICE,@ACR “SET ADDR TO MTC 
(1) 007646 017737 015064 024750 MOV aMTC ,DISPLY “READ MTC 
(1) 007654 032737 007400 024750 BIT #7400,DISPLY CHECK BIT11-8 IN MTC FOR O 
(1) 007662 001403 BEQ 4$ “SKIP If RESET CLEARED BIT11-8 IN MIC 
(1) 007664 104041 ERROR+ N "B1T11-8 IN MTC WERE NOT CLEARED BY RESET 
(1) 007666 004737 023526 JSR PC, DMPREG 
(1) 007672 4$: 
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CRIIAB.P11 18-JUN-79 14:26 132 MIC (B113-0) WRITE-READ TEST USING MTC COUNT PATTERN SEQ 0042 
880 ppetreeeererrererreererererererreerertterreneeeeeeerererenereneee 
(4) s*TEST 32 MTC (B1T3-0) WRITE-READ TEST USING MTC COUNT PATTERN 
(6) spe eteeeeeerrrererrererereererererererererteeteereeeerenerereeeees 
(3) 007672 000004 TST32: SCOPE 
(1) 007674 004737 023454 JSR PC,CLEAR ;CLEAR THE WORLD 
(1) 007700 012737 007714 001110 MOV #1$,SLPERR 7SET SCOPE LOOP POINTER 
(1) 007706 012737 000017 001124 MOV #17, $GDDAT sINIT EXPECTED TO 17 
(1) 7714 012777 000015 015010 18: MOV #ATCE,@ACR :SET ADR TO MTC 
(1) 007722 013777 001124 015006 MOV SGDDAT ,amMTc ;LOAD MTC WITH SGDDAT 
(1) 007730 012777 000015 014774 MOV #ATCE ,@ACR ;RESET ADR TO MTC 
(1) 007736 017737 014774 024750 MOV @MTCDISPLY READ MTC 
(1) 007744 013737 024750 001126 MOV DISPLY,SBODAT ;COPY MTC INTO SBDDAT 
(1) 007752 042737 177760 001126 BIC #-<17+1>, $BDDAT: CLEAR ALL BUT BITS UNDER TEST 
(1) 007760 023737 001124 001126 CMP SGDDAT,SBDDAT ; CHECK Bg LOADED AGAINST BITS READ 
(1) 007766 001403 BEQ 2$ SKIP 
(1) 007770 104042 ERROR+ WN MTC Bi Ts- 0 LOAD-READ ERROR 
(1) 007772 004737 023526 JSR PC ,DMPREG 
(1) 007776 062737 000001 001124 28: ADD #8110,$GODAT ;BUMP EXPECTED 
(1) 010006 042737 177760 001124 BIC #-<17+1>.$GDDAT ;MASK TO BITS UNDER TEST 
(1) 010012 023727 001124 000017 CMP SGDDAT,#17 ;DONE ALL? 
(1) 010020 001335 BNE 1$ :TEST AGAIN IF NO 
(1) 010022 012737 010030 001110 MOV #3$,SLPERR s CHANGE LOOP CONTROL 
(1) 010030 012777 000015 014674 38: MOV #MTCE,@ACR sRESET ADR TO MITC 
(1) 010036 012777 000017 014672 MOV #17,amMTC ;SET ALL BITS 
(1) 010044 004737 023454 JSR PC,CLEAR sCLEAR THE WORLD 
(1) 010050 012777 000015 014654 MOV MMTCE AACR ;SET ADDR TO MTC 
(1) 010056 017737 014654 024750 MOV aMTC,DISPLY sREAD MTC 
(1) 010064 032737 000017 024750 BIT #17,D1SPLY :CHECK BIT3-0 IN MTC FOR 0 
(1) 010072 001403 BEQ 4% :SKIP IF RESET CLEARED B11T3-0 IN MTC 
(1) 010074 104043 ERROR+ N :B113-0 IN MTC WERE NOT CLEARED BY RESET 
(1) 010076 004737 023526 JSR PC ,DMPREG 
ant 010102 4$: 
882 010102 004737 024634 JSR PC,GETSID ;DUMP SID ON PASS 1 
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891 

892 
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(3) 

(2) 010106 
893 010110 
894 010116 
895 010120 
896 010124 
897 010130 
898 010134 
899 010140 
900 010144 
901 010150 
902 010154 
903 010160 
904 010162 
905 010164 
906 010166 
907 010170 
908 010174 
909 010176 
910 010200 
911 010204 
912 010210 
913 010214 
914 010220 
915 010226 
916 010234 
917 010240 
918 010246 
919 010250 
920 010252 
921 010256 
922 010260 
923 010262 
924 010264 
925 010270 
926 010274 
927 010302 
928 010306 
929 010314 
930 010320 
931 010324 
932 010330 
933 010334 
934 010340 
935 010344 
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000004 


025020 000003 


010536 
000020 


014556 


014536 


000020 


001176 014504 
001126 


001126 


é 


001124 


023526 


000020 


010306 001110 
100000 014416 


014372 
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32 MIC (BIT3-0) WRITE-READ TEST USING MTC COUNT PATTERN 


;DUAL ADDRESSING TEST 

7A COUNT PATTERN IS DRIVEN THROUGH THE REGISTER UNDER TEST 
;AND ALL OTHER REGISTERS ARE CHECKED FOR ANY CHANGE 

ZALL THE 11ST REGISTERS ARE TESTED SEQUENTIALLY 

THIS TEST 1S NOT PERFORMED IF THERE ARE OTHER TRANSMITTING 
:;NON-INHIBITED UNITS ON THE IIST BUS (CONFIG=3), SINCE THE 
REGISTER SNAPSHCT COULD BE INVALID. 


ppeeeererererereeerereeeereeereererererrereeeeeeeeetereneerereeTe 
TEST 33 DUAL ADDRESSING TEST OF ALL REGISTERS 
ppeeeeerereeeeerereerererererereererereeeeeeereeeeeeeeeeeneeeeeTe 
1$133: SCOPE 

CMP CONF 1G,#3 


BNE 11$ ; SKIP IF N 
JMP 99% ;DON'T DO TEST IF YES 
118: MOV #16.,R5 SET COUNTER FOR 16 REGISTERS 


MOV #0,R4 :SET POINTER FOR REGISTER ADDRESS 
MOV #SNAPO,R3 


JSR PC,CLEARX ;CLEAR THE IIST 


CLR STMPO CLEAR THE REGISTER NUMBER 
1$: MOVB R4,@ACR ;SELECT REGISTER FROM TABLE 
MOV @ADR,(3)+ PUT REGISTER CONTENTS INTO SNAP 
INC RG ;BUMP ADR CODE 
DEC R5 ;DONE 10? 
BNE 1$ ;00 10 
CLR RO ;CLEAR TEST DATA WORD 
2$: MOV RO,@ACR ;LOAD tie INTO REGISTER 
INC RO ; BUMP 
BPL 2$ ;00 0- 77777, (DO NOT SET ‘’CLR*’) 
MOV #16é.,R5 7SET COUNTER FOR 16 REGISTERS 
MOV #0,R4 :SET POINTER FOR REGISTER ADDRESS TABLE 
MOV #SNAPO,RS SET POINTER FOR INITIAL REGISTER DATA 
3$: MOVB R4,STMPO ;SELECT REGISTER FROM TABLE 


MOV STMPO,@ACR ;LOAD ACR WITH ADDRESS 


MOV @ADR, SBODAT READ REGISTER INTO S$BDDAT 
MOV (3)+,$GDDAT FETCH ORIGINAL REGISTER DATA 
CMP SGDDAT,SBDDAT  ;CHECK FOR ANY CHANGE IN REGISTER 
BEQ 4% SKIP IF NO CHANGE 
ERROR+ 44 ;ADDRESSING ACR ALSO ADDRESSED REGISTER IN $TMPO 
JSR PC ,DMPREG 
4$: INC RG ;BUMP ADR CODE 
DEC R5 ;CHECKED ALL REGISTERS? 
BNE 3$ ;CHECK ALL REGISTERS 
MOV #16.,R5 SET COUNTER FOR 16 REGISTERS 
MOV #0,R4 SET POINTER FOR REGISTER ADDRESS 
MOV #5$,SLPERR SET SCOPE LOOP POINT 
CLR STMP3 TINITIALIZE STMPS 
5$: MOV #CLR,@ACR ;CLEAR THE JIST 
JSR PC,CLEARX 
MOV #SNAPO,R3 ;SET POINTER FOR INITIAL REGISTER DATA 
MOV #16.,R1 ;SET COUNTER TO READ 16 REGISTERS 
MOV #0,R2 SET POINTER FOR REGISTER ADDRESS 
6$: MOVB R2,@ACR SELECT REGISTER 
MOV @ADR,(3)* ;READ INITIAL REGISTER DATA 
INC R2 ;BUMP ADR CODE 
DEC R1 DONE 16? 


;SEE IF hee #3 (OTHER ACTIVE UNITS) 


SET POINTER FOR INITIAL REGISTER DATA 


SEQ 0045 
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937 015350 001571 
938 010352 bs pad 
939 010356 005000 
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DUAL ADDRESSING TEST OF AcL REGISTERS SEQ 0044 
BNE 6% ;00 1 

MOVB R4,STMPO SHPO: ~ yaa BEING WRITTEN 

CLR RO ;START AT 0 
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010536 
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001176 014344 7$: 


113777 


004737 
005202 


001264 


000001 
000003 
000015 
000007 


000001 
014306 


000000 
000020 
024756 
014256 
001124 
014246 


014236 
014234 
001124 


023526 


001176 


001200 
001126 
001126 


108: 
208: 


8$: 


9$: 


99%: 


18-JUN-79 
33 
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DUAL ADDRESSING TEST OF 
MOVB STMPO,@ACR 
MOV RO,R1 
CMPB RG ,#PGCSE 
BEQ 10% 
CMPB RG ,#STCSE 
BEQ 
CMPB RG ,WMTICE 
BNE 208 
BIC #7,R) 
BR 20% 
BIC #1,R1 
MOV R1,@ADR 
INC RO 
BNE 7$ 
MOV #0,R2 
MOV #16.,R1 
MOV #SNAPO,R3 
MOVB R2,aACR 
MOV (3) 4, $GDDAT 
CMPB @ACR,STMPO 
BEQ 9$ 
MOVB @ACR,STMP) 
MOV @ADR,SBDDAT 
CMP SGDDAT ,SBDDAT 
BEQ 9$ 
ERROR+ 44 
JSR PC ,DMPREG 
INC R2 
DEC R| 
BNE 8$ 
INC RG 
DEC R5 
BNE 5$ 


AcL REGISTERS 


Ps 


bo REGISTER 
OPY RO 


;PGCS? 
Hie IF YES 


;STCS? 
sSKIP IF YES 
MTC? 


SKIP 


P IF NO 
;CLEAR MAINT BITS 


7 SKIP 
;00 NOT SET GO 
;LOAD DATA INTO REGISTER 
:BUMP DATA 
LOAD 0-77777 INTO REGISTER 
SET POINTER FOR REGISTER ADDRESS TABLE 


SET COUNTER FOR 16 REGISTERS 

7SET POINTER FOR INITIAL CONTENTS TABLE 
;SELECT A REGISTER 

FETCH INITIAL CONTENTS OF REGISTER 

71S SELECTED REGISTER THE ONE WRITTEN? 
SKIP TESTING IF YES 

SAVE ADDRESS OF REGISTER CHECKED IN $TMP1 
FETCH REGISTER DATA 


:CHECK REGISTER FOR ANY CHANGES 
;SKIP IF NO CHANGE 
ADDRESSING REGISTER IN $TMPO ALSO 


;ADDRESSED REGISTER IN $TMP1 

;BUMP ADR CODE 

;CHECKED ALL REGISTERS? 

;CHECK ALL REGISTERS 

;BUMP POINTER FOR REGISTER ADDRESS 


; DONE 


ALL? 


3D0 ALL 
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CRIIAB.P11 18-JUN-79 14:24 
977 -SBTTL 
978 ~SBTTL 
979 -SBTTL INDIVIDUAL LINE TESTS 
aot ~SBTTL 
982 010536 012704 000000 LINEO: MOV #0,R4 ;SET INDEX TO 0 
983 010542 004737 010626 JSR PC,LINTST TEST LINE 
984 010546 012704 000001 MOV #1,R4 ;SET INDEX TO 1 
985 010552 004737 010626 JSR PC,LINTST TEST LINE 
986 010556 012704 000002 MOV #2,R4 sSET INDEX TO 2 
987 010562 004737 010626 JSR PC,LINTST TEST LINE 
988 010566 012704 000003 MOV #5,R4 ;SET INDEX 10 3 
989 010572 004737 010626 JSR PC,LINTST ; TEST LINE 
990 010576. 013704 024730 LINE1: MOV SIDNUM,R4 SET INDEX TO ID #@ 
991 010602 006304 ASL RG ; SHIFT 
992 010604 004737 017400 JSR PC ,PGONL TEST PGF ONLINE 
993 010610 013704 024730 LINE2: MOV SiDNUM,R4 SET INDEX TO ID # 
994 010614 006304 ASL RG ; SHIFT 
995 010616 004737 021134 JSR PC, STONL TEST STF ONLINE 


996 010622 000137 922012 JMP ENDTST SKIP OVER SUBROUTINE 
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010626 
010632 


010634 
010636 
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010437 
006304 


000004 


024754 


177776 


004000 
021762 
023526 
000001 


013772 
004000 


021762 
004000 


023526 


001124 


023526 
000007 
013660 


023526 
000010 
013634 
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014056 
014054 
014046 
014034 
001126 
001126 


001124 


013772 
001126 
001126 


013720 
001126 
001124 
001126 


013660 
024750 
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LINTST: MOV R4,LINMBR ;SAVE LINE UNDER TEST 
ASL R4 


MAKE INDEX INTO A WORD POINTER 


ISSUE A PROGRAM INTERRUPT REQUEST AND CHECK FOR: 
sRDY TO RESET 

:RDY TO SET 

;PIF BIT TO SET 

;DCF REGISTER TO STAY RESET 

EXC REGISTER TO STAY RESET 


pp eeeeeereenrerereererrigererrerrrereerenenenaeereeeeeeeeeeTerenes 


s*TEST 34 CHECK A LEGAL PGM PI] REQUEST FOR PROPER OPERATION 


s;eeerereerererrrereeerererereretrrereeeeeeeeeeeneneeenereeeteses 





SEQ 0047 


TST34: SCOPE 
CLR PSW ;LOWER PRIORITY TO ALLOW INTERUPTS 
JSR PC,SETMNT ;ENABLE MAINT LOOPBACK 
MOV #PGTEE ,aACR ;SELECT PGTE 
MOV PGITAB(4) ,aPGTE ;LOAD PIE 
MOV #G0,aPGCS ; TRANSMIT 
MOV #PGCSE ,@ACR :SELECT PGCS 
MOV aPGCS,$BDDAT ;READ PGCS 
+}. Sate »SBDDAT : CHECK FOR RDY 
EQ 
MOV _— SGDDAT: : LOAD EXPECTED PGCS 
ERROR+ SETTING PGCS GO DID NOT CLEAR RDY 
JSR PC, DMPREG 
1$: CLR RO INITIALIZE TIMER 
2$: MOV #PGCSE ,@ACR ;SELECT PGCS 
MOV aPGCS, $BDDAT ;READ PGCS 
BIT #PRDY ,SBDDAT ;CHECK FOR RDY 
BNE 3$ ;SKIP IF SET 
DEC RO TIMER =0? 
BNE 2$ ; TRY AGAIN IF NO 
MOV SIDTAB(4) ,SGDDAT;LOAD EXPECTED WITH 
ADD #PRDY,SGDDAT SID + RDY 
ERROR+ 44 :PGCS RDY DID NOT SET ON A PGM PI 
JSR PC ,DMPREG 
3$: MOV #PGFE,@ACR >SELECT PGF 
MOV aPGF ,SBDDAT ;READ PGF 
MOV #17,$GDDAT sFETCH EXPECTED FLAG BITS 
CMP SGDDAT,SBDDAT ;CHECK FOR CORRECT FLAG 
BEQ 4% :SKIP_ IF OK 
ERROR+ 44 7PGM Pl DID NOT SET CORRECT FLAG 
JSR PC ,DMPREG 
4$: MOV #WOCFE,@ACR SELECT DCF 
MOV aDCF ,DISPLY ;READ DCF 
BEQ 5$ SKIP IF 0 
ERROR+ 44 ;PGM Pl SET A DCF CONDITION 
JSR PC ,DMPREG 
5$: MOV WEXCE ,@ACR SELECT EXC 
MOV @EXC,DISPLY ;READ EXC 
BEQ 6$ sSKIP IF 0 
ERROR+ 44 ;PGM PI] SET AN EXC CONDITION 
JSR PC ,DMPREG 
6$: MOV WSTFE,@ACR SELECT STF 
MOV aSTF,DISPLY sREAD STF 


J 4 
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1051 011130 001403 BEQ 7$ ;SKIP IF CLEAR 
1052 011132 104044 ERROR+ 44 ;PGM PI SET AN STF CONDITION 
1053 011134 004737 023526 JSR PC ,DMPREG 





K 4 
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1055 011140 012700 000017 7$: MOV #17,R0 SET ALL 4 LINES 
1056 011144 046400 021772 BIC PGITAB(4) ,RO CLEAR LINE UNDER TEST 
1057 011150 012777 000005 013554 MOV #PGFE ,@ACR ; SELECT PGF 
1058 011156 010077 013554 MOV RO, aPGF ;CLEAR ALL PIFS EXCEPT LINE UNDER TEST 
1059 011162 012777 000005 013542 MOV #PGFE,@ACR ;SELECT PGF 
1060 011170 017737 013542 001202 MOV @PGF ,STMP2 sREAD PGF 
1061 011176 012777 000001 013526 MOV #PGCSE ,@ACR SELECT PGCS 
1062 011204 017737 013526 024750 MOV @PGCS,DISPLY ;READ PGCS 
1063 011212 032737 000010 024750 BIT #1P,DISPLY ;CHECK FOR IP 
1064 011220 001003 BNE 8$ SKIP IF SET 
1065 011222 104044 ERROR+ 44 ;1P DID NOT SET ON PGF 
1066 011224 004737 023526 JSR PC ,DMPREG 
1067 011230 017746 013510 8$: MOV @11IP,-(SP) : SAVE OLD 
1068 011234 017746 013502 MOV @ll1v,-(SP) ;P1 INFORMATION 
1069 011240 012777 011272 013474 MOV #9$,alllv ;LOAD NEW PI VECTOR 
1070 011246 012777 000340 013470 MOV #340,a111P ;LOAD NEW INT. LEVEL 
1071 011254 005037 177776 CLR PS s ALLOW PI 
1072 011260 000240 NOP 7 STALL 
1073. 011262 012737 000340 177776 MOV #340,PS ;LOCKOUT PI 
1074 011270 000404 BR 10% ;SKIP OVER ERROR 
1075 011272 022626 9$: POPPOP sFIX STACK 
1076 011274 104044 ERROR+ 44 :PGF Pl WITH IE=0 
1077 011276 004737 023526 JSR PC ,DMPREG 
1078 011302 012777 011376 013432 108: MOV #\2$,alllv ;LOAD NEW PI VECTOR 
1079 011310 012777 000001 013414 MOV #PGCSE ,@ACR SELECT PGCS 
1080 011316 012777 000004 013412 MOV #1E,aPGCS ;SET IE 
1081 011324 012737 000340 001212 MOV #340, STMP6 sINIT PI LEVEL 
1082 011332 162737 000040 001212 118%: SUB #40 ,STMP6 ;DROP PI LEVEL By 1 
1083 011340 013737 001212 177776 MOV STMP6,PS ;LOWER PSwW 
1084 011346 000240 NOP 7 STALL 
1085 011350 023727 001212 000140 CMP STMP6 #140 TRIED ALL LEVELS? 
1086 011356 001365 BNE 11$ ;BR IF NO 
1087 011360 012737 000340 177776 MOV #340,PS ;LOCKOUT PI 
1088 011366 104044 ERROR+ 44 NO PGF PI WITH JE=1 
1089 011370 004737 023526 JSR PC ,DMPREG 
1090 011374 000422 BR 13% ;SKIP NEXT TEST 
1091 011376 022626 12$: POPPOP sFIX STACK 
1092 011400 006337 001212 ASL STMPS sRIGHT JUSTIFY 
1093 011404 006337 001212 ASL STMP6 
1094 011410 006337 001212 ASL STMP6 
1095 011414 000337 001212 SWAB STMP6 THE PI LEVEL 
1096 011420 005237 001212 INC STMP6 ADD 1 TO MAKE CORECT LEVEL 
1097 011424 023737 001212 024746 CMP STMPO6, ITIL ;CHECK AGAINST KNOWN LEVEL 
1098 011432 001403 BEQ 13% sSKIP IF OK “ 
1099 011434 104044 ERROR+ 44 ;PGF Pl TO THE WRONG LEVEL 
1100 011436 004737 023526 JSR PC .DMPREG 
1101 011442 012677 013274 13$: MOV (SP)+,a111Vv ; RESTORE 
1102 011446 012677 013272 MOV (SP)+,a111P ;OLD PI INFO 
1103 011452 012777 000005 013252 14%: MOV #PGFE ,@ACR SELECT PGF 
1104 011460 016437 021772 001124 MOV PIFTAB(4) ,SGDDAT; FETCH FLAG BIT 
1105 011466 013777 001124 0135242 MOV SGDDAT , aPGF CLEAR FLAG 
1106 011474 005037 001124 CLR SGDDAT CLEAR EXPECTED 
1107 011500 012777 000005 013224 MOV #PGFE,@ACR SELECT PGF 
1108 011506 017737 013224 001126 MOV OPGF ,SBDDAT ;READ PGF 
1109 011514 001403 BEQ 15$ SKIP IF OK 
1110 011516 104044 ERROR* 44 ;WRITING A 1 TO PGF FLAG DID NOT 
sitesi 
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1111 011520 004737 023526 JSR PC ,DMPREG 
1112 ;CLEAR IT 
1113) 011524 15$: 
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; ISSUE A PROGRAM BOOT REQUEST AND CHECK FOR: 
sRDY TO SET 

;PBF BIT TO SET 

DCF REGISTER TO STAY RESET 

EXC REGISTER TO STAY RESE™ 


sp, eteeeeeeeeerrreereretererrrrereneereeereeteneeeteeeeeeeeTenenes 


s*TEST 35 CHECK A LEGAL PGM BOOT REQUEST FOR PROPER OPERATION 
speterererererrrereeerrrereeterenerreereneeeeneeeeeeKeeeteeeeen ee 

000004 TS135: SCOPE 
004737 023306 JSR PC, SETMNT sENABLE MAINT LOOPBACK 
012777 000000 013172 MOV #PGTEE,@ACR sSELECT PGTE 
016477 022002 013170 MOV PGBTAB(4),a@PGTE ;LOAD PIB 
012777 000001 013162 MOV #G0,aPGCS 7 TRANSMIT 
005000 1$: CLR RO s INITIALIZE TIMER 
012777 000001 013146 28: MOV #PGCSE,@ACR : SELECT PGCS 
017737 013146 001126 MOV aPGCS,$BDDAT ;READ PGCS 
032737 004000 001126 BIT #PRDY ,SBDDAT :CHECK FOR RDY 
001013 BNE 3$ sSKIP IF SET 
005300 DEC RO : TIMER =0? 
001364 BNE 2$ sTRY AGAIN IF NO 
016437 021762 001124 MOV SIDTAB(4),$GDDAT;LOAD EXPECTED WITH 
062737 004000 001124 ADD #PRDY,SGDDAT 3;S1D + RDY 
104044 ERROR+ 44 :PGCS RDY DID NOT SET ON A PGM BOOT 
004737 023526 JSR PC ,DMPREG 
012777 000005 013074 3$: MOV #PGFE,@ACR sSELECT PGF 
017737 013074 001126 MOV aPGF ,SBDDAT ;READ PGF 
012737 007400 001124 MOV #7400,$GDDAT sFETCH EXPECTED FLAG BITS 
023737 001124 001126 CMP SGDDAT,$BDDAT sCHECK FOR CORRECT FLAG 
001403 BEQ 4% ;SKIP IF OK 
104044 ERROR+ 44 :PGM BOOT DID NOT SET CORRECT FLAG 
004737 023526 JSR PC,DMPREG 
012777 000007 013034 4$: MOV #OCFE,@ACR sSELECT DCF 
017737 013034 024750 MOV @DCF ,DISPLY READ DCF 
001403 BEQ 5$ sSKIP IF 0 
104044 ERROR+ 44 ;PGM BOOT SET A DCF CONDITION 
004737 023526 JSR PC ,DMPREG 
012777 000010 013010 5$: MOV WEXCE,@ACR sSELECT EXC 
017737 013010 024750 MOV @EXC,DISPLY READ EXC 
001403 BEQ 6$ :SKIP IF 0 
104044 ERROR+ 44 :PGM BOOT SET AN EXC CONDITION 
004737 023526 JSR PC ,DMPREG 
012777 000006 012764 6%: MOV #STFE,@ACR sSELECT STF 
017737 012764 024750 MOV aSTF,DISPLY ;READ STF 
001403 Q 7$ sSKIP IF 0 
104044 ERROR+ 44 :PGM BOOT SET AN STF CONDITION 
004737 023526 JSa PC ,DMPREG 
012777 000005 012740 7$: MOV #PGFE,@ACR ;SELECT PGF 
016437 022002 001124 MOV PBFTAB(4) ,SGDDAT; FETCH FLAG BIT 

13777 001124 012730 MOV SGDDAT , aPGF sCLEAR FLAG 
005137 001124 COM SGDDAT sFLIP GDDAT 
042737 170377 001124 BIC #170377,$GDDAT ;MASK OUT JUNK 
012777 000005 012704 MOV #PGFE,@ACR >SELECT PGF 
017737 012704 001126 MOV aPGF ,SBDDAT ;READ PGF 
023737 001124 001126 CMP $GDDAT,$BDDAT sCHECK FLAG FOR 0 
001403 BEQ 8% sSKIP IF OK 
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35 CHECK A LEGAL PGM BOOT REQUEST FOR PROPER OPERATION 


ISSUE A SANITY TIMER INTERRUPT REQUEST AND CHECK FOR: 
sRDY TO RESET 

sRDY TO SET 

:SIF BIT TO SET 

sDCF REGISTER TO STAY RESE? 

EXC REGISTER TO STAY RESET 

sPGF REGISTER TO STAY RESET 

;SIF BIT TO BE CLEARED BY WRITING A 1 TO IT 


pp eteerrereeerrerreeerrererrerererererterreereeereeeeKereeereeeee 


s*TEST 36 CHECK A LEGAL ST INTR REQUEST FOR PROPER OPERATION 


pp eteeeeerererereerrrrrerrrrererrerererereRerereneereneeeenereeree 


TST36: SCOPE 
JSR PC, SSTMNT 
MOV #PGTEE ,@ACR 


MOV PGITAB(4) ,aPGTE 
MOV #PTP+G0,aPGCS 


MOV #PGCSE ,@ACR 
MOV aPGCS,S$BDDAT 
BIT gages mesetate 


BEQ 
MOV SIDTAB(4) , SGDDAT 
ERROR+ 44 
JSR PC ,DMPREG 
1$: CLR RO 
23: MOV #PGCSE ,@ACR 


MOV aPGCS,$BDDAT 
BIT Naseem 


DEC RO 


ADD #PROY,SGDDAT 


ERROR+ 44 
JSR PC ,DMPREG 
3$: MOV #STFE,@ACR 


MOV @STF ,SBDDAT 
MOV #17, $GDDAT 
CMP + ata aeons 


ERROR+ 44 
JSR PC ,DMPREG 
4$: MOV #OCFE,@ACR 


MOV aDCF ,DISPLY 
BEQ 5$ 
ERROR+ 4 


4 
JSR PC ,DMPREG 
5$: MOV #EXCE,@ACR 
MOV @EXC,DISPLY 
BEQ 6$ 
ERROR+ 44 
JSR PC ,OMPREG 
6$: MOV #PGFE,@ACR 
MOV aPGF ,DISPLY 
BEQ 7% 
ERROR*+ 44 


2s 
MOV SIDTAB(4) , SGDDAT 


;ENABLE MAINT LOOPBACK 
SELECT PGTE 

;LOAD PIE 

; TRANSMIT 

SELECT PGCS 

READ PGCS 

;CHECK FOR RDY 


770 
sLOAD EXPECTED PGCS 
sSETTING PGCS GO DID NOT CLEAR RDY 


INITIALIZE TIMER 

SELECT PGCS 

;READ PGCS 

; CHECK FOR RDY 

SKIP IF SET 

TIMER =0? 

TRY AGAIN IF NO 

;LOAD EXPECTED WITH 

3$10 + RDY 

:PGCS RDY DID NOT SET ON A PGM P] 


SELECT STF 

;READ STF 

sFETCH EXPECTED FLAG BITS 

;CHECK FOR CORRECT FLAG 

SKIP IF OK 

:ST INTR DID NOT SET CORRECT FLAG 


SELECT OCF 


;SKIP IF 0 
7ST INTR SET A DCF CONDITION 


sSELECT EXC 

sREAD EXC 

:SKIP IF 0 

:ST INTR SET AN EXC CONDITION 


SELECT PGF 

;READ PGF 

;SKIP IF CLEAR 

7ST INTR SET A PGF CONDITION 


SEQ 0053 
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JSR PC ,DMPREG 





SEQ 0054 
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11 18-JUN-79 14:24 136 CHECK A LEGAL ST INTR REQUEST FOR PROPER OPERATION SEQ 0055 
012352 700 000017 7$: MOV #17,R0 ;SET ALL & LINES 
012356 046400 021772 Bic STITAB(4) ,RO ;CLEAR LINE UNDER TEST 
012362 012777 000006 012342 MOV @STFE,@ACR sSELECT STF 
012370 010077 012342 MOV RO,aSTF sCLEAR ALL SIFS EXCEPT LINE UNDER TEST 
012374 012777 000006 012330 MOV #STFE,@ACR sSELECT STF 
012402 017737 012330 001202 MOV a@STF,STMP2 sREAD STF 
012410 012777 000001 012314 MOV #PGCSE ,@ACR ;SELECT PGCS 
012416 017737 012314 024750 MOV @PGCS,DISPLY ;READ PGCS 
012424 032737 000010 024750 BIT #IP,DISPLY sCHECK FOR IP 
012432 0010035 BNE 8$ sSKIP IF SET 
012434 104044 ERROR+ 44 :1P DID NOT SET ON STF 
012436 004737 023526 JSR PC ,DMPREG 
012442 017746 012276 8$: MOV @llIP,-(SP) ; SAVE OLD 
012446 017746 012270 MOV alllv,-(SP) sP1l INFORMATION 
012452 012777 012504 012262 MOV #9$,alllv ;LOAD NEW PI VECTOR 
012460 012777 000340 012256 MOV #340, ,al111P sLOAD NEW INT. LEVEL 
012466 005037 177776 CLR PS ; ALLOW PI 
012472 000240 NOP STALL 
012474 012737 000340 177776 MOV #340,PS ;LOCKOUT PI 
012502 000404 BR 10% ;SKIP OVER ERROR 
012504 022626 9$: POPPOP sFIX STACK 
012506 104044 ERROR+ 44 sSTF Pl WITH IE=0 
012510 004737 023526 JSR PC,DMPREG 
012514 012777 012562 012220 108: MOV #11$.alllv ;LOAD NEW PI VECTOR 
012522 012777 000001 012202 MOV #PGCSE,@ACR sSELECT PGCS 
012530 012777 000004 012200 MOV #1E,aPGCcs SET IE 
012536 005037 177776 CLR PS sALLOW PI 
012542 000240 NOP : STALL 
012544 012737 000340 177776 MOV #340,PS :LOCKOUT PI 
012552 104044 ERROR+ 44 =NO STF PI WITH IE=1 
012554 004737 023526 JSR PC ,.DMPREG 
012560 000401 BR 12% sSKIP NEXT TEST 
012562 022626 118: POPPOP sFIX STACK 
012564 012677 012152 12$: MOV (SP)+,al1llv sRESTORE 
012570 012677 012150 MOV (SP)*,a@111P :OLD P! INFO 
012574 012777 000006 012130 138: MOV #STFE,@ACR sSELECT STF 
012602 016437 021772 001124 MOV SIFTAB(4) ,SGDDAT; FETCH FLAG BIT 
012610 013777 001124 012120 MOV SGDDAT,asTF s CLEAR FLAG 
012616 005037 001124 CLR SGDDAT sCLEAR EXPECTED 
012622 012777 000006 012102 MOV @STFE,@ACR sSELECT STF 
012630 017737 012102 001126 MOV asTFt ,SBDDAT ;READ STF 
012636 001403 BEQ 14% sSKIP IF OK 
012640 104044 ERROR+ 44 sWRITING A 1 TO STF FLAG DID NOT 
012642 004737 023526 JSR PC ,DMPREG iihee i 

sth 


012646 148: 
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1275 ; ISSUE A SANITY TIMER BOOT REQUEST AND CHECK FOR: 

1276 :RDY TO SET 

1277 :SBF BIT TO SET 

1278 :DCF REGISTER TO STAY RESET 

1279 TEXC REGISTER TO STAY RESET 

1281 sp eeeeeererrererrerereretererererereeeeeeeeeeeeeeeKAeineeeeereeee 
(3) TEST 37 CHECK A LEGAL ST BOOT REQUEST FOR PROPER OPERATION 
(3) spetteereeeererrrerererreeerereeeerrererereerereeneereneietenerenese 
(2) 012646 000004 1$137: SCOPE 

1282 012650 004737 023476 JSR PC, SSTMNT ;ENABLE MAINT LOOPBACK 

1283 012654 012777 000000 012050 MOV #PGTEE ,@ACR TSELECT PGTE 

1284 012662 016477 022002 012046 MOV PGBTAB(4) ,aPGTE ;LOAD PIB 

1285 012670 012777 000003 012040 MOV #PTP+GO,aPGCS  ; TRANSMIT 

1286 012676 005000 1$: CLR RO SINITIALIZE TIMER 

1287 012700 012777 000001 012024 2s: MOV #PGCSE ,@ACR ;SELECT PGCS 

1288 012706 017737 012024 001126 MOV @PGCS,$BDDAT READ PGCS 

1289 012714 032737 004000 001126 BIT WPRDY.$BDDAT CHECK FOR RDY 

1290 012722 001013 BNE 3$ :SKIP IF SET 

1291 012724 005300 DEC RO TIMER =0? 

1292 012726 001364 BNE 2$ :TRY AGAIN IF NO 

1293 012730 016437 021762 001124 MOV SIDTAB(4) ,$GDDAT;LOAD EXPECTED WITH 

1294 012736 062737 004000 001124 ADD WPRDY,S$GDDAT ;SID * RDY 

1295 012744 104044 ERROR+ 44 :PGCS RDY DID NOT SET ON A ST BOOT 

1296 012746 004737 023526 JSR PC ,DMPREG 

1297 012752 012777 000006 011752 3s: MOV WSTFE AACR :SELECT STF 

1298 012760 017737 011752 001126 MOV aSTF ,SBDDAT READ STF 

1299 012766 012737 007400 001124 MOV #7400,$GDDAT  : FETCH EXPECTED FLAG BITS 

1300 012774 023737 001124 001126 CMP $GDDAT,SBDDAT ; CHECK FOR CORRECT FLAG 

1301 013002 001403 BEQ 4$ :SKIP IF OK 

1302 013004 104044 ERROR+ 44 $1 BOOT DID NOT SET CORRECT FLAG 

1303 013006 004737 023526 JSR PC ,DMPREG 

1304 013012 012777 000007 011712 48: MOV WOCFE,@ACR ;SELECT DCF 

1305 013020 017737 011712 024750 MOV aDCF ,DISPLY TREAD DCF 

1306 013026 001403 BEQ 5$ ISKIP IF 0 

1307 013030 104044 ERROR+ 44 :ST BOOT SET A DCF CONDITION 

1308 013032 004737 023526 JSR PC ,DMPREG 

1309 013036 012777 000010 011666 58: MOV WEXCE ,@ACR ;SELECT EXC 

1310 013044 017737 011666 024750 MOV EXC ,DISPLY READ EXC 

1311 013052 001403 BEQ 6$ :SKIP IF 0 

1312 013054 104044 ERROR+ 44 :ST BOOT SET AN EXC CONDITION 

1313 013056 004737 023526 JSR PC ,DMPREG 

1314 013062 012777 000005 011642 68: MOV #PGFE ,@ACR :SELECT PGF 

1315 013070 017737 011642 024750 MOV aPGF ,DISPLY READ PGF 

1316 013076 001403 BEQ 7$ :SKIP IF 0 

1317 013100 104044 ERROR+ 44 :$T BOOT SET A PGF CONDITION 

1318 013102 004737 023526 JSR PC ,DMPREG 

1319 013106 012777 000006 011616 7S: MOV WSTFE,@ACR ;SELECT STF 

1320 013114 016437 022002 001124 MOV SBFTAB(4) ,SGDDAT:FETCH FLAG BIT 

1321 013122 013777 001124 011606 MOV SGDDAT,aSTF ICLEAR FLAG 

1322 013130 005137 001124 COM $GDDAT FLIP GDDAT 

1323 013134 042737 170377 001124 BIC #170377,$GDDAT :MASK OUT JUNK 

1324 013142 012777 000006 011562 MOV WSTFE,@ACR TSELECT STF 

1325 013150 017737 011562 001126 MOV aSTF ,SBDDAT READ STF 

1326 013156 023737 001124 001126 CMP $GDDAT,SBDDAT =; CHECK FLAG FOR 0 

1327 013164 001403 BEQ 8$ ;SKIP IF OK 


MAINDEC-11-CRIIA-B MACY11 30A(1052) 18-JUN-79 14:32 PAGE 40-1 

CRIIAB.P11 18=JUN=79 14:24 137 CHECK A LEGAL ST BOOT REQUEST FOR PROPER OPERATION SEQ 0057 
1328 013166 104044 ERROR+ 44 WRITING A 1 TO STF FLAG DID NOT 
1329 013170 004737 023526 JSR PC ,DMPREG 


1330 ;CLEAR IT 
1331 013174 8$: 









G 
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1333 ;1SSUE A PROGRAM INTERRUPT REQUEST WITH IMSK BIT =1 AND CHECK: 
1334 ;PIF BIT TO STAY O 
1335 :Ul BIT TO SET 
Hts: ;U1] BIT TO CLEAR WHEN WRITTEN TO A 1 
1338 ppeeterererrrererererrerererrerrerrerreenereneneeeeeeeeeeeeeeeEee 
(3) s*TEST 40 CHECK THE IMSK BIT FOR PROPER OPERATION 
(3) spe eeenerererererrrrerrrererrerererertererenerererererereneeeeeee 
(2) 013174 000004 TST40: SCOPE 
1339 013176 004737 023306 JSR PC,SETMNT ;ENABLE MAINT. LOOP 
1340 013202 012777 000000 011522 MOV #PGTEE,@ACR ;SELECT PGTE 
1341 013210 016477 021772 011520 MOV PGITAB(4) ,@PGTE ;LOAD PIB 
1342 013216 012777 000004 011506 MOV WIMSKE ,@ACR ;SELECT IMSK 
1343. 013224 016477 021772 011504 MOV IMITAB(4) ,@IMSK; INHIBIT LINE 
1344 013232 012777 000001 011472 MOV #PGCSE ,@ACR SELECT PGCS 
1345 013240 012777 000001 011470 MOV #G0,aPGCS 7 TRANSMIT 
1346 013246 012777 000001 011456 1$: MOV #PGCSE ,@ACR SELECT PGCS 
1347 013254 032777 004000 011454 BIT #PRDY,aPGCS CHECK FOR 
1348 013262 001771 BEQ 1$ ;READY 
1349 013264 012777 900005 011440 MOV #PGFE,@ACR SELECT PGF 
1350 013272 017737 011440 001126 MOV @aPGF ,SBDDAT ;READ PGF 
1351 013300 012737 000017 001124 MOV #17, $GDDAT FETCH EXPECTED FLAGS 
1352 013306 046437 021772 001124 BIC PGITAB(4) ,SGDDAT; MINUS EXPECTED FLAG 
1353 013314 023737 001124 001126 CMP $GDDAT,SBDDAT ;CHECK FLAG FOR 0 
1354 013322 001403 BEQ 2$ SKIP IF OK 
1355 013324 104044 ERROR+ 44 ;1MSK BIT DID NOT INHIBIT ITS PGF BIT 
1356 013326 004737 023526 JSR PC ,DMPREG 
1357 013332 016437 022002 001124 2%: MOV UVITAB(4) ,SGDDAT;LOAD EXPECTED Ul BIT 
1358 013340 012777 000010 011364 MOV WEXCE ,@ACR SELECT Exc 
1359 013346 017737 011364 001126 MOV @EXC,$BDDAT sREAD EXC 
1360 013354 023737 001124 001126 CMP SGDDAT,SBDDAT ;CHECK THE UI BIT 
1361 013362 001403 BEQ 3$ SKIP IF SET 
1362 013364 104044 ERROR+ 44 ;U1 DID NOT SET ON A PIF WITH IMSK=1 
1363 013366 004737 023526 JSR PC ,DMPREG 
1364 013372 005037 001124 3$: CLR S$GDDAT sEXPECT 0 
1365 013376 012777 000010 011326 MOV WEXCE ,@ACR SELECT EXC 
1366 0134046 016477 022002 011324 MOV UVITAB(4) ,@EXC ;CLEAR UI BIT 
1367 013412 012777 000010 011312 MOV WEXCE ,@ACR SELECT EXC 
1368 013420 017737 011312 024759 MOV @EXC,DISPLY READ EXC 
1369 013426 013737 024750 001126 MOV DISPLY,SBDDAT ;TEST EXC 
1370 013434 001403 BEQ 4$ sSKIP IF 0 
1371 013436 104044 ERROR*+ 44 WRITING A 1 10 Ul BIT DID NOT CLEAR 11 
1372 013440 004737 023526 JSR PC ,DMPREG 
1373 013444 012777 000006 011260 48%: MOV #STFE,@ACR SELECT STF REGISTER 
1374 013452 017737 011260 001126 MOV aSTF,$BDDAT ;GET AND TEST STF REGISTER 
1375 013460 001403 BEQ 5$ ;STF SHOULD BE 0 
1376 013462 104044 ERROR+ 44 STF NOT ZERO ON A PGI] WITH IMSK=1 
ih Hog 004737 023526 JSR PC ,DMPREG 
1 
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; ISSUE A PROGRAM BOOT REQUEST WITH BIMSK BIT 


;PBF BIT TO STAY 0 
;Ul BIT TO SET 


E 42 
CHECK THE IMSK BIT FOR PROPER OPERATION 


=1 AND CHECK: 


sp eeeeeeerrrrrererererrereererrrererrerrereneeeeeeeerereneeseTene 


s*TEST 41 CHECK THE IMSK BIT FOR PROPER OPERATION ON PGM BOOT 
*@eeeeeererertererrereeeeeeretererereeeeekaeeeneeeeeeteeeeteteteteeesr 
ié141: SCOPE 
JSR PC,SETMNT sENABLE MAINT. LOOP 
MOV #PGTEE,@ACR sSELECT PGTE 
MOV PGBTAB(4),a@PGTE ;LOAD PBB 
MOV #IMSKE,@ACR :SELECT IMSK 
MOV BMITAB(4),@IMSK ; INHIBIT LINE 
MOV #PGCSE ,@ACR sSELECT PGCS 
MOV #G0,aPGCS ; TRANSMIT 
1$ MOV #PGCSE,a@ACR sSELECT PGCS 
BIT #PRDY,aPGCS ;CHECK FOR 
BEQ 1$ READY 
MOV #PGFE,@ACR ;SELECT PGF 
MOV aPGF ,SBDDAT ;READ PGF 
MOV #7400,$GDDAT > FETCH EXPECTED FLAGS 
BIC PGBTAB(4) ,SGDDAT; MINUS EXPECTED FLAG 
CMP SGDDAT,$BDDAT sCHECK FLAG FOR 0 
BEQ 23 sSKIP IF OK 
ERROR+ 44 :IMSK BIT DID NOT INHIBIT ITS PGF BIT 
JSR PC,DMPREG 
2s: MOV UVITAB(4) ,SGDDAT;LOAD EXPECTED Ul BIT 
MOV WEXCE,@ACR SSEcect Ext 
MOV @EXC,$BDDAT sREAD EXC 
CMP SGDDAT,SBDDAT ;CHECK THE UI] BIT 
BEQ 3$ sSKIP IF SET 
ERROR+ 44 :U1 DID NOT SET ON A PIF WITH IMSK=1 
JSR PC,DMPREG 
3$: CLR SGDDAT sEXPECT STF TO BE 0 
MOV MSTFE,@ACR sSELECT STF 
MOV aSTf ,SBDDAT 3;GET AND TEST STF 
BEQ 4$ 317 SHOULD BE 0 
ERROP+ 44 
JSR PC ,DMPREG 
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1418 s ISSUE A SANITY TIMER INTERRUPT REQUEST WITH IMSK BIT =1 AND CHECK: 

1419 sSIF BIT TO STAY O 

1420 3;U1 BIT TO SET 

My 3 :U]1 BIT TO CLEAR WHEN WRITTEN TO A 1 

1423 ‘ ppteeeenrererererrererereereretrreeeetereetererereteereneteneeeee 
(3) -s*TEST 42 CHECK THE IMSK BIT FOR PROPER OPERATION ON ST INIR 
(3) ppeeeeeerererrereereerererrrererereeeeereReeeAReeeeAAAARe RAAT TTS 
(2) 013716 000004 TST42: SCOPE 

1424 013720 004737 023476 JSR PC,SSTMNT sENABLE MAINT. LOOP 

1425 013724 012777 000000 011000 MOV #PGTEE,@ACR SELECT PGTE 

1426 013732 016477 021772 010776 MOV PGITAB(4),@PGTE ;LOAD PIB 

1427 013740 012777 000004 010764 MOV WIMSKE ,@ACR ;SELECT IMSK 

1428 013746 016477 021772 010762 MOV IMITAB(4) ,@IMSK; INHIBIT LINE 

1429 013754 012777 000001 010750 MOV #PGCSE ,@ACR :SELECT PGCS 

1430 013762 012777 000003 010746 MOV #PTP+GO,aPGCS  ; TRANSMIT 

1431 013770 012777 000001 010734 18: MOV #PGCSE,@ACR :SELECT PGCS 

1432 013776 032777 004000 010732 BIT #PRDY,aPGCS sCHECK FOR 

1433 014004 001771 BEQ 1$ READY 

1434 014006 012777 0900006 010716 MOV MSTFE,@ACR sSELECT STF 

1435 014014 017737 010716 001126 MOV aSTF,$BDDAT sREAD STF 

1436 014022 012737 000017 001124 MOV #17,SGDDAT sFETCH EXPECTED FLAGS 

1437 014030 046437 021772 001124 

1438 014036 023737 001124 001126 CMP SGDDAT, $BDDAT :CHECK FLAG FOR 0 


1439 014044 001403 BEO 2$ SKIP IF OK 


BIC PGITAB(4) ,SGDDAT:MINUS EXPECTED FLAG 
1440 014046 104044 ERROR+ 44 ;1MSK BIT DID NOT INHIBIT ITS SIF BIT 
1441 014050 004737 023526 JSR PC ,,DMPREG 
1442 014054 016437 022002 001124 2%: MOV UVITAB(4) ,SGDDAT;LOAD EXPECTED Ul BIT 
1443 014062 012777 0000:0 010642 MOV WEXCE ,@ACR ;SELECT EXC 
1444 014070 017737 010642 001126 MOV aE XC, $BDDAT sREAD EXC 
1445 014076 023737 001124 001126 CMP SGDDAT,$BDDAT ;CHECK THE UJ BIT 
1446 014104 001403 BEQ 3$ SKIP IF SET 
1447 014106 104044 ERROR+ 44 :U1 DID NOT SET ON A SIF WITH IMSK=1 
1448 014110 004737 023526 JSR PC ,DMPREG 
1449 014114 005037 001124 3$: CLR SGDDAT sEXPECT 0 
1450 014120 012777 000010 010604 MOV WEXCE ,@ACR SELECT EXC 
1451 014126 016477 022002 010602 MOV UVITAB(4) ,@EXC ;CLEAR Ul BIT 
1452 014134 012777 000010 010570 MOV WEXCE ,@ACR SELECT EXC 
1453 014142 017737 010570 024750 MOV @EXC,DISPLY sREAD EXC 
~1454 014150 0 
1455 014156 001403 BEQ SKIP IF 0 
1456 014160 104044 ERROR+ 44 WRITING A 1 TO Ul BIT DID NOT CLEAR IT 
1457 014162 004737 023526 JSR PC ,DMPREG 
1458 014166 012777 000005 010536 4%: MOV #PGFE ,@ACR ;SELECT PGF REGIPGER 
1459 014174 017737 010536 001126 MOV aPGF ,SBDDAT ;GET AND TEST STF REGISTER 
1460 014202 001403 BEQ 5$ ;PGF SHOULD BE 0 
1461 014204 104044 ERROR+ 44 PGF NOT ZERO ON A STI WITH IMSK=1 
1462 014206 004737 025526 JSR PC ,DMPREG 


13737 024750 001126 MOV + ghetheammmoeane TEST EXC 
1463 014212 5$: 
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;1SSUE A SANITY TIMER BOOT REQUEST WITH BIMSK BIT =1 AND CHECK: 
;SBF BIT 10 STAY 0 
;Ul BIT 10 SET 


*s@ereereerreerertrererererereerereneeterereteeteeeeterereneeeeeeest 


TeTEST 43 


-s@eeeteererrererererertererereerererererekeeeteeeeteeeeereeteteee 


1$143: 


23: 


3$: 


4$: 


CHECK THE IMSK BIT FOR PROPER OPERATION ON ST BOOT 


PC,SSTANT 
#PGTEE,@ACR 


PGBTAB(4) ,aPGTE ;LOAD 


#WIMSKE ,@ACR 
BMITAB(4) ,a1MSK 
#PGCSE ,@ACR 
#PTP+G0 ,aPGCS 
#PGCSE ,@ACR 
ne 


#STFE ,@ACR 

@aSTF ,SBSDDAT 
#7400 ,SGDDAT 
PGBTAB(4) ,SGDDAT 
eens 


by 

PC ,DMPREG 
UVITAB(4) ,SGDDAT 
WEXCE ,@ACR 
@EXC,SBDDAT 
ee 


sENABLE MAINT. LOOP 
sSELECT PGTE 

$ PBB 

sSELECT IMSK — 

; INHIBIT LINE 

;SELECT PGCS 

; TRANSMIT 

sSELECT PGCS 

;CHECK FOR 

;READY 

sSELECT STF 

sREAD STF 

sFETCH EXPECTED FLAGS 
sMINUS EXPECTED FLAG 
sCHECK FLAG FOR 0 
7SKIP IF OK 

;IMSK BIT DID’ NOT INHIBIT ITS SBF BIT 


;LOAD EXPECTED Ul BIT 
sSELECT EXC 

sREAD EXC 

;CHECK THE UI BIT 


mo 


SKIP IF SET 


as 

PC ,DMPREG 
$GDDAT 
#PGFE ,@ACR 
aPGF ,SBDDAT 
4$ 


a 
PC ,DMPREG 


;U] DID NOT SET ON A SBF WITH IMSK=1 


EXPECT PGF TO BE 0 
SELECT PGF 

;GET AND TEST PGF 
;11 SHOULD BE 0 


SEQ 0061 
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1504 
1505 

(3) 

(3) 

(2) 014440 
1506 014442 
1507 014446 
1508 014450 
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1510 014464 
1511 014472 
1512 014500 
1513 014506 
1514 014514 
1515 014516 
1516 014520 
1517 014522 
1518 014524 
1519 014530 
1520 014534 
1521 014540 
1522 014542 
1523 014544 
1524 014546 
1525 014552 
1526 014560 
1527 014566 
1528 014572 
1529 014600 
1530 014606 
1531 014614 
1532 014616 
1533 014620 
1534 014624 
1535 014632 
1536 014640 
1537 014646 
1538 014650 
1539 014652 
1540 014656 
1541 014664 
1542 014672 
1543 014700 
1544 014702 
1545 014704 
1546 014710 
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TEST OPERATION OF THE TIMER LOGIC 


sy eeeetererererrrerereererererrererertrrenereteenereteeenerteeeeee 


tTEST 44 CHECK THE TIMER INTERRUPT LOGIC AND COUNT REGISTER 
pp eeeererererereererererererrerereeeeeteneneeeereeeeereteereretes 
TST44: SCOPE 

JSR PC,SSTANT ;SET MAINT. LOOPBACK 

CLR RO : INIT. TIMER COUNTER 


MOV #STTEE,@ACR ;SELECT STTE 
MOV SIFTAB(4) ,@STTE ;ENABLE SI] LINE 
MOV #ENB,@STCS sENABLE SANITY TIMER 
1$: MOV #STCSE ,@ACR SELECT STCS 
MOV @STCS,DISPLY sREAD STCS 
BIT #177410,DISPLY ;CHECK FOR TMO OR COUNT=~-1 


BNE 23 :SKIP IF ANY BITS SET 
INC RO ; COUNT BACKGROUND TIMER 
BNE 1$ ;KEEP COUNTING UNTIL OVERFLOW 
ERROR+ 44 s TIMER DID NOT COUNTDOWN WHEN ENABLED 
JSR PC ,DMPREG 
MOV #-1,R0 sSET TIME TO MAX 

28: MOV RO, TIMPER sSAVE TIME PERIOD CONSTANT 
ASR RO sDIVIDE BY 
ASR RO 78 
ASR RO 
ADD RO, TIMPER sADD 12% 
MOV #STCSE,@ACR adi 
MOV aSTCS,DISPLY s see 
CLR SBDDAT s INIT. DISPLAY 
MOVB DISPLY+1,$BDDAT ;FETCH COUNT 
MOV #377, $GDDAT ;LOAD EXPECTED 
CMP $GDDAT ,SBDDAT sCHECK FOR TIMER = =-1 
BEQ 3$ sSKIP IF OK 
ERROR+ 44 : TIMER DID NOT COUNT FROM 0 TO -1 
JSR PC ,DMPREG 

3$: MOV #TMO+ENB,SGDDAT ;LOAD EXPECTED 


MOVB DISPLY,$BDDAT  ;LOAD ACTUAL 
CMP SGDDAT,SBDDAT ;CHECK FOR TMO 


BEQ 4$ SKIP IF SET : 
ERROR+ 44 ;TMO DID NOT SET ON TIMER UNDERFLOW 
JSR PC ,DMPREG 
4$: MOV #PGCSE ,@ACR SELECT PGCS 
MOV @PGCS,DISPLY ;READ PGCS 
BIT #IP,DISPLY ; TEST FOR IP 
BNE 5$ SKIP IF SET 
ERROR+ :SIF DID NOT SET IP 


44 
JSR PC ,DMPREG 
5$: 


SEQ 0062 
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1548 ppeteereereeeerererererrererrereretereeentekereteeeeeeeteeeAeeees 
(3) TEST 45 CHECK THE TIMER BOOT LOGIC AND COUNT REGISTER 
(3) speeeeeererererrerererrrerereeeerereeeeeereeeeeAeeeeeAeeeeeeeAA eee 
(2) 014710 000004 1$145: SCOPE 

1549 014712 004737 023476 JSR PC, SSTMNT ;SET MAINT. LOOPBACK 

1550 014716 012777 000002 010006 MOV WSTTEE ,@ACR TSELECT STTE 

155% 014724 016477 022002 010004 MOV SBFTAB(4) ,@STTE :ENABLE SB LINE 

1552 014732 012777 000001 007776 MOV WENB,aSTCS TENABLE SANITY TIMER 

1553 014740 005000 CLR RO :CLR COUNTER 

1554 014742 012777 000003 007762 15: MOV WSTCSE ,@ACR :SELECT STCS 

1555 014750 017737 007762 024750 MOV @STCS,DISPLY | ;READ STCS 

1556 014756 032737 177410 024750 BIT #177410,01SPLY :CHECK FOR TMO OR COUNT=-1 

1557 014764 001005 BNE 2$ :SKIP IF ANY BITS SET 

1558 014766 005200 INC RO [COUNT BACKGROUND TIMER 

1559 014770 001364 1$ [KEEP COUNTING UNTIL OVERFLOW 

1560 014772 104044 ERROR+ 44 [TIMER DID NOT COUNTDOWN WHEN ENABLED 

1561 014774 004737 023526 JSR PC ,DMPREG 

1562 015000 012777 000003 007724 2%: MoV WSTCSE ACR pitt 

1563 015006 017737 007724 024750 MOV @STCS,DISPLY  ::#* 

1564 015014 005037 001126 CLR $BDDAT :INIT. DISPLAY 

1565 015020 113737 024751 001126 MOVB DISPLY+1,$BDDAT ;FETCH COUNT 

1566 015026 012737 000377 001124 MOV #377, $GDDAT [LOAD EXPECTED 

1567 015034 023737 001124 001126 CMP $GDDAT,S$BDDAT :CHECK FOR TIMER = -1 

1568 015042 001403 BEQ 3$ SKIP IF OK 

1569 015044 104044 ERROR+ 44 :TIMER DID NOT COUNT FROM 0 TO -1 

1570 015046 004737 023526 JSR PC ,DMPREG 

1571 015052 012737 000011 001124 38: MOV #TMO+ENB,SGDDAT ;LOAD EXPECTED 

1572 015060 113737 024750 001126 MOVB DISPLY,$BDDAT ;LOAD ACTUAL 

1573 015066 023737 001124 001126 CMP $GDDAT.$BDDAT ;CHECK FOR TMO 

1574 015074 001403 BEQ 4$ :SKIP IF SET 

1575 015076 104044 ERROR+ 44 :TMO DID NOT SET ON TIMER UNDERFLOW 

1576 015100 004737 023526 JSR PC ,DMPREG 

1577 015104 012777 000001 007620 4s: MOV #PGCSE ,@ACR :SELECT PGCS 

1578 015112 017737 007620 024750 MOV @PGCS,DISPLY  ;READ PGCS 

1579 015120 032737 000010 024750 BIT #1P.DISPLY [TEST FOR IP 

1580 015126 001403 BEQ 5$ :SKIP IF CLR 

1581 015130 104044 ERROR+ 44 :SBF SET IP 

1582 015132 004737 023526 JSR PC ,DMPREG 

1583 015136 S$: 
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1585 ppeeeeereeeererererererereeererereerertreeeeeeeeeeteteteeetereeeee 
(3) s*TEST 46 CHECK THE COUNTER FOR PROPER DECREMENTATION 
(3) speeeeeererertereeeeererereeeeeeeeetrereeeeeeeeeteeeeeeeneeeeeeese 
(2) 015136 000004 TST46: SCOPE 

1586 015140 012737 000001 001204 MOV #1,STMP3 INIT THE COUNT VALUE 

1587 015146 005037 001126 CLR SBODAT ;ZERO THE HIGH BYTE OF SBDDAT 

1588 015152 012737 015160 001110 MOV #1$,SLPERR 7SET SCOPE POINT 

1589 015160 004737 023476 1$: JSR PC,SSTMNT sENTER MAINT. LOOP MODE 

1590 015164 012777 000002 007540 MOV #STTEE,@ACR sSELECT STTE 

1591 015172 016477 021772 007536 MOV SIFTAB(4), @STTE ;SET LINE ENABLE 

1592 015200 112777 000001 007530 MOVB WENB,@STCS SENABLE COUNTING 

1593 015206 005377 007520 DEC @ACR :SELECT STCS 

1594 015212 113777 001204 007520 MOVB STMP3,aSTCSH ;LOAD COUNT AND START 

1595 015220 013737 001204 001124 MOV STMP3 /SGDDAT :GET STARTING COUNT VALUE 

1596 015226 005337 001124 DEC SGDDAT MINUS 1 

1597 015232 013700 024752 MOV TIMPER,RO :GET BASIC TIME CONSTANT 

1598 015236 006300 ASL RO #2 

1599 015240 005377 007466 23: DEC @ACR SELECT STCcs 

1600 015244 117737 007470 001126 MOVB @STCSH,$BDDAT ;READ COUNT VALUE 

1601 015252 123737 001204 001126 CMPB $TMP3,$BDDAT > CHECK FOR CHANGE 

1602 015260 001006 BNE 3$ ;SKIP IF CHANGED 

1603 015262 005300 DEC RO :DEFLATE COUNTER 

1606 015264 001365 BNE 2$ ; CHECK AGAIN 

1605 015266 104044 ERROR+ 44 TIMER DID NOT DECREMENT 

1606 015270 004737 023526 JSR PC ,DMPREG 

1607 015274 000414 BR 4$ 7SKIP NEXT CHECK 

1608 015276 005377 007430 3$: DEC @ACR :SELECT STCS 

1609 015302 117737 007432 001126 MOVB @STCSH, $BDDAT ;REREAD TIMER 

1610 015310 023737 001124 001126 CMP $GDDAT,SBDDAT ;CHECK FOR CORRECT DECREMENTATION 

1611 015316 001403 BEQ 4% ;SKIP IF OK 

1612 015320 104044 ERROR+ 44 :COUNT REGISTER DID NOT DECREMENT CORRECTLY 

1613 015322 004737 023526 JSR PC ,DMPREG 

1614 015326 105237 001204 4$: INCB STMP3 ;BUMP TEST VALUE 

1615 015332 001312 BNE 1$ :00 1 - 377 
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1617 ISSUE A PROGRAM-GENERATED REQUEST WITH INTERRUPT MASKS CLEAR WITH ALL COMBINATIONS OF 
1618 ; TRANSMIT ENABLES, MAINTENANCE TYPE, AND MAINTENANCE FRAMING 

1619 ;AND CHECK FOR: 

1620 H CORRECT CONTENTS OF PGCS (RDY, IP, SELF-1D) 

1621 ; RTE BITS IN THE EXC REGISTER TO BE SET 

1622 ; ALL OTHER FLAGS TO BE CLEAR (PGF, STF, DCF, UIF) 

roar : SELECTED RTE FLAG CAN BE CLEARED 

1625 000005 w=5 

1626 

1627 ppeeeeeeeeeerrereeereerrerereererrerereeeeereeereeeeeteteeeeeeeee 
(3) T#TEST 47 CHECK OPERATION OF PARITY & FRAMING ERRORS, 1M(3:0)=0 
(3) ppeeeenerererrererererererererereereeeteeeeeReeeeeeeeeereteee eee 
(2) 015334 000004 TST47: SCOPE 

1628 015336 004737 023306 JSR PC,SETMNT sENABLE MAINTENANCE LOOPBACK 

1629 015342 012737 015366 001110 MOV #1S$,SLPERR 3F1X START OF LOOP 

1630 015350 012777 000007 007354 MOV #OCFE,@ACR 

1631 015356 017737 007354 024756 MOV aDCF ,SNAPO ;SAVE IMAGE OF DCF REGISTER 

ox 015364 005000 CLR RO : INIT FRAME, TYPE, PGTE DATA SETUP 

1634 015366 010037 001200 1$: MOV RO,STMP1 

1635 015372 004737 023506 JSR PC ,PARCAL ;CALCULATE PARITY OF DATA 

1636 015376 113737 001200 001201 MOVB STMP1,STMP1+1 

1637 015404 106037 001201 RORB STMP1+1 ;POSITION DATA 

1638 015410 106037 001201 RORB STMP1+1 

1639 015414 106037 001201 RORB STMP1+1 

1640 015420 106037 001201 RORB STMP1+1 

1641 015424 012777 000000 007300 MOV #PGTEE ,@ACR 

1642 015432 013777 001200 007276 MOV STMP1,aPGTE ;LOAD TRANSMIT ENABLES 

1643 015440 006301 ASL R1 ;GET PARITY 

1644 015442 042701 177775 23: BIC #177775,R1 

1645 015446 016437 021762 001124 MOV SIDTAB(4) ,SGDDAT :GET SELF-1D 

1646 015454 050137 001124 BIS R1,$GDDAT 

1647 015460 052701 000001 BIS #1,R1 

1648 015464 012777 000001 007240 MOV #PGCSE ,@ACR - 

1649 015472 010177 007240 MOV R1,aPGCS ;LOAD PARITY. SET GO 

1650 015476 005001 CLR R1 

1651 015500 052737 004010 001124 BIS #PRDY+1P,$GDDAT 

1652 015506 105377 007220 3$: DECB @ACR 

1653 015512 017737 007220 001126 MOV aPGCS,$BDDAT 

1654 015520 032737 004000 001126 BIT #PRDY,SBDDAT sWAIT FOR READY 

1655 015526 001005 BNE 4$ 

1656 015530 005301 DEC R1 ;BUT DON'T WAIT TOO LONG 

1657 015532 001365 BNE 3$ 

1658 015534 104044 ERROR+ 44 

1659 015536 004737 023526 JSR PC ,DMPREG 

1660 015542 023737 001126 001124 4$: CMP SBDDAT ,$GDDAT 31S PGCS OK? 

1661 015550 001403 5$ 

1662 015552 104044 ERROR+ 44 

1663 015554 004737 023526 JSR PC ,DMPREG 
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CRIIAB.P11 18-JUN-79 CHECK OPERATION OF PARITY & FRAMING ERRORS, 1M(3:0)=0 SEQ 0066 
1665 015560 012737 000017 001124 5$: MOV #17, $GDDAT :GET EXPECTED RTE FLAGS 
1666 015566 012777 000610 007136 MOV WEXCE ,@ACR 
1667 015574 017737 007136 001126 MOV @ExXC,SBDDAT ;GET EXC REGISTER 
1668 015602 023737 001124 001126 CMP SGDDAT .SBDDAT 
1669 015610 001403 6$ 
1670 015612 104044 ERROR+ 44 
1671 015614 004737 023526 JSR PC ,DMPREG 
1672 015620 105377 007106 6$: DECB @ACR 
1673 015624 0164637 021772 001124 MOV PIFTAB(4) ,SGDDAT 
1674 015632 013777 001124 007076 MOV SGDDAT , EXC sCLEAR FLAG 
1675 015640 005137 001124 COM SGDDAT ;MAKE FLAG DATA 
1676 015644 042737 177760 001124 BIC #177760, $GDDAT 
1677 015652 105377 007054 DECB @ACR 
1678 015656 017737 007054 001126 MOV @EXC,SBDDAT 
1679 015664 023737 001126 001124 CMP SBODAT ,SGDDAT 
1680 015672 001403 Q 7$ 
1681 015674 104044 ERROR+ 44 
1682 015676 004737 023526 JSR PC ,DMPREG 
1683 015702 005037 001124 7$: CLR SGDDAT 
1684 015706 012777 000005 007016 MOV #PGFE,@ACR 
1685 015714 017737 007016 001126 MOV aPGF ,SBDDAT >PGF SHOULD BE 0 
1686 015722 001403 BEQ 8$ 
1687 015724 104044 ERROR+ 44 
1688 015726 004737 023526 JSR PC ,DMPREG 
1689 015732 017737 007000 001126 8$: MOV aSTF ,SBDDAT :GET STF 
1690 015740 001403 BEQ 9$ :STF SHOULD BE 0 
1691 015742 104044 ERROR+ 44 
1692 015744 004737 023526 JSR PC ,DMPREG 
1693 015750 013737 024756 001124 9$: MOV SNAPO, $GDDAT 3GET EXPECTED DATA FOR DCF 
1694 015756 017737 006754 001126 MOV a0CF ,.$BDDAT 3GET DCF REGISTER 
1695 015764 023737 001126 001124 CMP SBDDAT,$GDDAT ;CHECK THAT THERE 1S NO CHANGE 
1696 015772 001403 Q 10% 

1697 015774 104044 ERROR+ 44 

1698 015776 004737 023526 JSR PC ,DMPREG 

1699 016002 005200 108: INC RO s INCREMENT TEST DATA 

1700 016004 012777 000015 006720 MOV #MTCE,@ACR sPOINT TO MTC 

1701 016012 042777 006000 006716 BIC MMTYP+MFRM,OMTC : CLEAR TYPE AND FRAME ERROR 
1702 016020 032700 000400 BIT #400,R0 

1703 016024 001403 BEQ 11$ s1F RO(8)=1, SET MTYPE 

1704 016026 052777 004000 006702 BIS #MTYP,aMTC 

1705 016034 032700 001000 11$: BIT #1000,R0 

1706 016040 001403 BEQ 12$ 

1707 016042 052777 002000 006666 BIS #MFRM,OMTC s1F RO(9)=1, SET FRAMING ERROR 
1708 016050 020027 002000 12$: CMP RO, #2000 

1709 016054 103002 BHIS 13% :LOOP UNTIL ALL COMBOS OF DATA, TYPE & 
1710 sFRAMING HAVE BEEN TESTED. 
1711 010056 000137 015366 JMP 1$ 

1712 016062 13$: 


reer aa et sme eee rrr tr rr eee 
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1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 

(3) 

(3) 

(2) 016062 000004 
1722 016064 004737 023306 
1723 016070 012737 016130 
1724 016076 012777 000007 
1725 016104 017737 006626 
1726 016112 012777 000004 
1727 016120 012777 000017 
p= 016126 005000 
1730 016130 010037 001200 
1731 016134 004737 023506 
1732 016140 113737 001200 
1733 016146 106037 001201 
1734 016152 106037 001201 
1735 016156 106037 001201 
1736 016162 106037 001201 
1737 016166 012777 000000 
1738 016174 013777 001200 
1739 016202 006301 
1740 016204 042701 177775 
1741 016210 016437 021762 
1742 016216 050137 001124 
1743 016222 052701 000001 
1744 016226 012777 000001 
1745 016234 010177 006476 
1746 016240 005001 
1747 016242 052737 004000 
1748 016250 105377 006456 
1749 016254 017737 006456 
1750 016262 032737 004000 
1751 016270 001005 
1752 016272 005301 
1753 016274 001365 
1754 016276 104044 
1755 016300 004737 023526 
1756 016304 023737 001126 
1757 016312 001403 
1758 016314 104044 
1759 016316 004737 023526 
1760 016322 012737 000000 
1761 016330 012777 000010 
1762 016336 017737 006374 
1763 016344 001403 
1764 016346 104044 
1765 016350 004737 023526 
1766 016354 
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001110 


006610 


001201 


006536 


006534 


001124 


006476 


001124 


001126 
001126 


001124 


001124 
006374 
001126 
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CHECK OPERATION OF PARITY & FRAMING ERRORS, 1M(3:0)=0 


SEQ 0067 


ISSUE A PROGRAM-GENERATED REQUEST WITH INTERRUPT MASKS SET WITH ALL COMBINATIONS OF 
; TRANSMIT ENABLES, MAINTENANCE TYPE, AND MAINTENANCE FRAMING 


;AND CHECK FOR: 


CORRECT CONTENTS OF PGCS (ROY, SELF-ID) 
RTE BITS IN THE EXC REGISTER TO BE CLEAR 
ALL OTHER FLAGS TO BE CLEAR (PGF, STF, DCF, UIF) 


spreeeeeerrererererereeererererererererereeeerererereeerererereeeese 


:eTEST 50 


*s@eeeeeeeeeererererererereeeeereeerereeeeeenrererterektereeereeeeee 


18150: 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


SCOPE 


CHECK OPERATION OF PARITY & FRAMING ERRORS, 1M(3:0)=1 


PC, SETMNT 
#1$,SLPERR 
#OCFE,@ACR 
@aDCF ,SNAPO 
#WIMSKE ,@ACR 
#17, a1MSK 
RO 


RO, STMP1 
PC,PARCAL 
STMP1,STMP1+1 
STMP1+1 
STMP1+1 
STMP1+1 
STMP1+1 
#PGTEE,@ACR 
air rere 


R 
#177775,R1 


SIDTAB(4) , SGDDAT 


R1,$GDDAT 


#1 RI 
#PGCSE ,@ACR 
a 


R 

#PRDY ,SGDDAT 
@ACR 
aPGCS,$BDDAT 
#PRDY,SBODAT 


4 
PC ,DMPREG 
en 


ah 

PC ,,DMPREG 
#0,$GDDAT 
WEXCE ,@ACR 
@EXC,$BDDAT 
6% 


44 
PC ,DMPREG 


ENABLE MAINTENANCE LOOPBACK 
FIX START OF LOOP 


SAVE IMAGE OF DCF REGISTER 

;POINT TO IMASK 

7SET ALL INTERRUPT MASKS 

INIT FRAME, TYPE, PGTE DATA SETUP 
;CALCULATE PARITY OF DATA 


;POSITION DATA 


;LOAD TRANSMIT ENABLES 
GET PARITY 


GET SELF-ID 


;LOAD PARITY, SET GO 


;WAIT FOR READY 
;BUT DON'T WAIT TOO LONG 


1S PGCS OK? 


GET EXPECTED RTE FLAGS 
GET EXC REGISTER 
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005037 


103600 


MACY11 sanipchirsaeat 
14:24 


001124 
000005 
006344 


023526 
006326 


023526 


001126 


023526 


000015 
006000 
000400 


004000 
001000 


002000 
002000 


006344 
001126 


001126 


001124 
001126 
001124 


006246 


006244 


006230 


006214 
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7$: 


8$: 


9$: 


108: 


118: 


12$: 


6 
14:32 PAGE 50-1 
CHECK OPERATION OF PARITY & FRAMING ERRORS, 


SGODAT 
#PGFE ,@ACR 
Nagase: 


au 
PC ,DMPREG 
tee meee 


SBDDAT,SGDDAT 
10% 


7 
PC ,DMPREG 
RO 


#MTCE ,@ACR 
#ATYP+MERM,aMTC 
#400,R0 

11$ 


#WATYP ,aMTC 
#1000,R0 
12% 

#MFRM MTC 
-* it 


s1F RO(9)=1, 


;LOOP UNTIL ALL COMBOS OF DATA, 
FRAMING HAVE BEEN TESTED. 


1M(3:0)=1 SEQ 0068 


;PGF SHOULD BE 0 


GET STF 
:STF SHOULD BE 0 


;GET EXPECTED DATA FOR DCF 
;GET DCF REGISTER 
;CHECK THAT THERE IS NO CHANGE 


7 INCREMENT TEST DATA 
:POINT TO MTC 
;CLEAR TYPE AND FRAME ERROR 


;1F ROC8)=1, SET MTYPE 


SET FRAMING ERROR 
TYPE & 
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016632 
016634 


016640 


017002 


2711 


004737 


023306 


000001 


021762 


004000 
001124 


023526 
000005 


000004 
177776 


000340 
023526 
006004 
006002 


100000 
140010 


001126 
001124 


023526 
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001126 
001126 


006054 
006050 


177776 


001124 


001126 


18-JUN-79 14:32 PAGE 51 
150 CHECK OPERATION OF PARITY & FRAMING ERRORS, 1M(3:0)=1 


sTEST ALL THE PGCS ERROR BITS FOR PROPER OPERATION 


‘seater ererererereerererereerereeeeeetereeeeeeereeeeeneeeereneeeee 


TEST 51 


Ree eeetereretrereeeeeeerereerererereeeeeeeteretereneeeeeeeteenee 


18151: 


2$: 


3$: 
4$: 


5$: 


TEST GRJ FOR PROPER OPERATION 


PC,SETMNT CLR 11ST AND ENTER MAINT. MODE 
ACR, sRI=ACR 

ADR,R ;R2=ADR 

#PGTEE aR SELECT PGTE 

PGITAB(4),@R2 ;LOAD PGTE WITH ENABLE 

#G0,aR2 ; TRANSMIT 

ari ;SELECT PGCS 


aR2 ;SET GO AGAIN 
SIDTAB(4) ,SGDDAT;LOAD EXPECTED 
WERR+GRJ+PRDY+1P,SGDDAT 

#PGCSE aR! ;SELECT PGCS 
@R2,SBDDAT ;READ PGCS 
#PRDY,SBDDAT TEST FOR RDY 
1$ ;LOOP UNTIL SET 
SGDDAT,SBDDAT  ;CHECK STATUS 
2$ SKIP IF OK 


44 sERR,GRJ, OR IP DID NOT SET ON 
PC ,DMPREG 
3A GRJ ERROR 
#PGFE,aR1 ; SELECT PGF 
#17,aR2 ;CLEAR PGF 
@ll1P,-(SP) SAVE OLD 
alllv,-(SP) Pl DATA 
#3$.al1liv ;LOAD NEW 
#340,a111P 3;P1 DATA 
#PGCSE,aR1 ;SELECT PGCS 
WIE, aR2 sENABLE PI 
PS ; ALLOW PI 
sSTALL 
#340,PS ;LOCKOUT PI 
4G sNO Pl ON ERR WITH IE=1 
PC ,DMPREG 
4$ > SKIP 
sFIX STACK 
(SP)+,a111V sRESTORE OLD 
(SP)+,a111P 7P1 INFO 
ari sSELECT PGCS 
WERR,aR2 :CLEAR ERR BY WRITING 1 TO IT 
MERR+GRI+1P,$GDDAT 
ari sSELECT PGCS 
aR2,$BDDAT ;READ PGCS 
$GDDAT, $BDDAT ;CHECK STATUS 
5$ sSKIP IF OK 
44 sWRITING A ONE TO ERR DID NOT 
PC, DMPREG 


:CLEAR ERR,GRJ, AND iP 


-_— Hy 
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1847 

(3) 

(3) 

(2) 017002 
1848 017004 
1849 017010 
1850 017014 
1851 017020 
1852 017024 
1853 017030 
1854 017032 
1855 017036 
1856 017042 
1857 017044 
1858 017046 
1859 017054 
1860 017062 
1861 017066 
1862 017072 
1863 017100 
1864 017102 
1865 017110 
1866 017112 
1867 017114 
1868 
1869 017120 
1870 017124 
1871 017130 
1872 017134 
1873 017140 
1874 017146 
1875 017152 
1876 017156 
1877 017164 
1878 017166 
1879 017170 
1880 
1881 017174 


0 
013702 


oooooooco°c”[eco 
dN et ae os es es 


Oe ee © ed 
M—MNAFOONAOnmnr 
~“ 


ooooo°0o°0co 


PAS wet eet I et et os 
lh — PoP PoP 


001403 
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023306 


000000 
021772 
000001 


021762 
124010 
000001 
001126 
004000 


001124 


023526 
000005 


001124 


023526 


001126 
001126 


001124 


001126 
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TEST PG RMR FOR PROPER OPERATION 


ppeeeeeereerrererrrerrrrererertrerrettrreeKereteteneereererererese 


s*TEST 52 


TSTS2: 


2$: 


5$: 


TEST PG RMR FOR PROPER OPERATION 


pp teeeereneererererrrrrererrererrerererieaerererenererereerereeee 


Te} aa 
ADR,R2 

#G0,R0 
#PGTEE,RS 
R3,aR1 
PGITAB(4) ,aR2 
#60 ,aR2 
R3,aR1 


ater Ea AND ENTER MAINT. MODE 
:R2= ADR 


;RO=GO 
 R3= ott e Sl CODE 
s SELECT P 


GTE 
[LOAD PGTE WITH ENABLE 
; TRANSMIT 


SELECT PGTE 
ACCESS PGTE AGAIN 


R1,aR2 
SIDTAB(4) ,SGDDAT;LOAD EXPECTED 
WERR+PGMR+PRDY+1P, SGDDAT 


#PGCSE aR! 
aR2,$BDDAT 
#PRDY . SBODAT 
| 

S$GDDAT ,SBDDAT 
2% 


&& 
PC ,DMPREG 


#PGFE,aR1 
#17,aR2 


$GDDAT , SBDDAT 
5$ 


wy 
PC ,DMPREG 


R2 
HERR* PGHR® IP, ,SGDDAT 


:SELECT PGCS 
READ PGCS 

; TEST FOR RDY 
;LOOP UNTIL SET 


; CHECK STATUS 
SKIP IF OK 
sERR,PGMR, OR IP DID NOT SET ON 


;A PGMR ERROR 
SELECT PGF 
; CLEAR PGF 


;SELECT PGCS 
;CLEAR ERR BY WRITING 1 TO IT 


;SELECT PGCS 


TREAD PGCS 


CHECK STATUS 
sSKIP IF OK 
sWRITING A ONE TO ERR DID NOT 


;CLEAR ERR,PGMR, AND IP 


SEQ 0070 





G 
14:32 PAGE 53 


TEST ST RMR FOR PROPER OPERATION 


ppeteeererrerererererrerereeeerererereretererereeneeeeeeeeee eee e 


TEST ST RMR FOR PROPER OPERATION 


sp eteereeeeeerererereerereerrrerererterereeeeeeeneteeeeenerereneee 


MAINDEC-11-CRIIA-B MACY11 30A(1052) 18-JUN-79 

CRIIAB.P11 18-JUN-79 14:24 153 
1885 

3} s*TEST 53 
(2) 017174 000004 TST53: SCOPE 

1884 017176 004737 023476 JSR 
1885 017202 013701 024732 MOV 
1886 017206 0135702 024736 MOV 
1887 017212 012711 000002 MOV 
1888 017216 016412 021772 MOV 
1889 017222 012712 000001 MOV 
1890 017226 016437 021762 001124 MOV 
1891 017234 062737 114010 001124 ADD 
1892 017242 012711 000003 1$: MOV 
1893 017246 032712 000010 BIT 
1894 017252 001773 BEQ 
1895 017254 012711 000002 MOV 
1896 017260 005212 INC 
1897 017262 012711 000001 MOV 
1898 017266 011237 001126 MOV 
1899 017272 023737 001124 001126 CMP 
1900 017300 001403 BEQ 
1901 017302 104044 ERROR*+ 
be | 017304 004737 023526 JSR 
1904 017310 012746 100000 2$: MOV 
1905 017314 005216 4$: INC 
1906 017316 001376 BNE 
1907 017320 005026 CLR 
1908 017322 012711 000006 MOV 
1909 017326 012712 000017 MOV 
1910 017332 012711 000001 MOV 
1911 017336 012712 10006 MOV 
1912 017342 042737 110010 001124 BIC 
1913 017350 012711 00000 MOV 
1914 017354 011237 001126 MOV 
1915 0173600 023737 001124 001126 CMP 
1916 017366 001403 BEQ 
1917 017370 104044 ERROR+ 
ody 017372 004737 023526 JSR 
1920 017376 5$: 
1921 017376 000207 RTS 


PC, SSTHNT 
ADR.R2 
WSTTEE,aRI 
STITAB(4) ,@R2 
#ENB,aR2 


te AND ENTER MAINT. MODE 


:R2=ADR 
7 SELECT 


STTE 
:LOAD STTE WITH ENABLE 
START TIMER 


SIDTAB(4) ,SGDDAT;LOAD EXPECTED 
MWERR+STMR+PROY*+1P,S$GDDAT 


#STCSE aR 
#TMO,aR2 


1$ 
#STTEE aR 
are 
#PGCSE aR! 
@R2,S$BDDAT 
SGDDAT , SBDDAT 
2$ 
Gb 
PC ,DMPREG 
#100000,-(SP) 
) 


SELECT STCS 
; TEST FOR TMO 
;LOOP UNTIL SET 


SELECT STTE 


ACCESS STTE AGAIN 


>SELECT PGCS 

;READ PGCS 

;CHECK STATUS 

;SKIP IF OK 

sERR,STMR, OR IP DID NOT SET ON 


;A STMR ERROR 
sPUSH VALUE 
STALL 


(SP)+ 
WSTFE,aRI sSELECT STF 
#17,aR2 CLEAR STF 
WPGCSE, ari ;SELECT PGCS 
WERR,aR2 ;CLEAR ERR BY WRITING 1 10 IT 
WERR+STMR+IP,SGDDAT 
#PGCSE aR! >SELECT PGCS 
aR2,$BDDAT READ PGCS 
$GDDAT,$BDDAT ; CHECK STATUS 
5$ SKIP IF OK 
as sWRITING A ONE TO ERR DID NOT 
PC ,DMPREG 
;CLEAR ERR,STMR, AND IP 
PC sc EXMIT 


| 
— 


SEQ 0071 
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1923 
1924 
1925 
1926 
1927 
1928 
1929 017400 
1930 

(3) 

(3) 

(2) 017400 
1931 017402 
1932 017410 
1933 017414 
1934 017416 
1935 017422 
1936 017426 
1937 017434 
1938 017442 
1939 017450 
1940 017452 
1941 017456 
1942 017464 
1943 017472 
1944 017476 
1945 017504 
1946 017506 
1947 017512 
1948 017514 
1949 017516 
1950 017520 
1951 017522 
1952 017524 
1953 017526 
1954 017530 
1955 017534 
1956 017534 
1957 017536 
1958 017542 
1959 017546 
1960 017550 
1961 017556 
1962 017562 
1963 017566 
1964 017572 
1965 017576 
1966 017604 
1967 017612 
1968 017614 
1969 017616 
1970 017622 
1971 017630 
1972 017634 
1973 017640 
1974 017646 
1975 017652 
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000004 


040137 
010046 
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100000 
025020 


020162 
023450 
005270 
023450 
000015 
025020 
021772 


001200 


001200 
023506 


001200 


001200 


177775 
021762 
001124 
000001 
000001 
005064 


005322 


001110 
005270 
024756 


005246 
005244 
000003 


001201 


005126 
005124 


001124 


005064 


teen 14:32 PAGE 54 


TEST ST RAR FOR PROPER OPERATION 


SEQ 0072 


; 1SSUE A PROGRAM-GENERATED o> rh WITH INTERRUPT MASKS CLEAR WITH ALL COMBINATIONS OF 


; TRANSMIT ENABLES AND CHECK F 


RTE BITS IN THE EXC REGISTER TO BE CLEAR 


CORRECT CONTENTS OF pecs (RDY, IP, SELF<1D) 


ALL OTHER FLAGS TO BE CLEAR ( STF, DCF, UIF) 


PGONL : 


sp eeeeererrrererrereererererererreerrerererentereeeneenenTAreeeene 


S#TEST 54 CHECK OPERATION OF PG REQUESTS IN NORMAL MODE 


pp eterererreererereeerrreerrerrererreeereneenenterenaeeerenereeeee 


18154: SCOPE 
MOV #CLR,@ACR 


TST CONFIG 
BNE -*6 
JMP 10% 
JSR PC,CLEARX 
MOV #1$S,SLPERR 
MOV #OCFE,@ACR 
MOV aDCF ,SNAPO 
CLR RO 

1$: JSR PC,CLEARX 
MOV WMTCE,@ACR 
MOV #DSBT,aMtc 
MOV RO, STMP1 
CMP CONF IG,#3 
BNE 11¢ 
MOV PG1TAB(4),R1 
MOV R1,-(SP) 
ASL R1 
ASL R? 
ASL R1 
ASL R1 
BIS (SP)+,R1 
COM R1 
BIC R1,S1MP1 

11$: 
MOV RO,-(SP) 
MOV STMP1,RO 
JSR PC,PARCAL 
MOV (SP)+,RO 
MOVB STMP1,STMP1+41 
RORB STMP1¢1 
RORB STMP1+1 
RORB STMP1+1 
RORB STMP1¢1 
MOV #PGTEE,@ACR 
MOV STMP1,aPGTE 
ASL R1 
COM R1 

23: BIC #177775,R1 
MOV SIDTAB(4) ,S$GDDAT 
BIS R1,$GDDAT 
BIS #1,R1 
MOV #PGCSE ,@ACR 
MOV R1,aPGCS 
CLR a 





;CLEAR THE JIST 
;ARE WE PREVENTED FROM ONLINE? (CONF IG=0) 
sSKIP_ IF NOT 


:1F YES, GO TO NEXT TEST. 
;CLEAR THE II]ST AND FLAGS 
FIX START OF LOOP 


SAVE IMAGE OF DCF REGISTER 
; INIT PGTE DATA SETUP 
:CLEAR 11ST AND FLAGS 
>SELECT MTC 

;DISABLE BOOTS 


>SHOULD WE PREVENT XMIT OF ALi CODES? 
NO IF NOT CONFIG #3. 

:YES == GET MASK FOR SELF. 

SAVE INTR ENB 

;SHIFT 4X TO BOOT ENB 


:GET INTR ENB MASK 
7CLEAR BITS FOR DESTINATION OTHER THAN SELF. 


SAVE COUNT VALUE 

:GET ENABLE FOR PARITY GENERATOR 
;CALCULATE PARITY OF DATA 
RESTORE COUNT VALUE. 


POSITION DATA 


;LOAD TRANSMIT ENABLES 
:GET PARITY 
FIX PAR BIT 


:GET SELF=I1D 


;LOAD PARITY, SET GO 
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CRIIAB.P11 18-JUN-79 1 CHECK OPERATION OF PG REQUESTS IN NORMAL MODE SEQ 0073 
1976 017654 052737 004000 001124 BIS #PRDY ,SGDDAT 
1977 017662 036437 021772 001200 BIT PG!ITAB(4),STMP1 ; TEST FOR PGI ENABLE 
1978 017670 001403 BEQ 3$ SKIP IF CLEAR 
1979 017672 052737 000010 001124 BIS #1P,SGDDAT ;SET IP IF RELEVANT 
1980 017700 105377 005926 3$: DECB @ACR 
1981 017704 017737 005026 001126 MOV aPGCS,$BDDAT 
1982 017712 032737 004000 001126 BIT #PRDY,SBDDAT ;WAIT FOR READY 
1983 017720 001005 BNE 4% 
1984 017722 005301 DEC R1 ;BUT DON'T WAIT TOO LONG 
1985 017724 001365 BNE 3$ 
1986 017726 104044 ERROR+ 44 ;PRDY DID NOT SET ON A PG XFER 
1987 017730 004737 023526 JSR PC ,DMPREG 
1988 017734 023737 001126 001124 4$: CMP SBDDAT,S$GDDAT ;1S PGCS OK? 
1989 017742 001403 BEQ 5% 
1990 017744 104044 ERROR*+ 44 :PGCS STATUS ERROR ON PG XFER 
1991 017746 004737 023526 JSR PC ,DMPREG 
1992 017752 005037 001124 5$: CLR $GDDAT SET EXPECTED RTE FLAGS 
1993 017756 012777 000010 004746 MOV WEXCE ,@ACR 
1994 017764 017737 004746 001126 MOV @EXC,SBDDAT GET EXC REGISTER 
1995 017772 023737 001124 001126 CMP SGDDAT,$BDDAT 
1996 020000 001403 BEQ 6$ 
1997 020002 104044 ERROR+ 44 EXC NOT 0 ON A PG XFER 
1998 020004 004737 023526 JSR PC ,DMPREG 
1999 020010 036437 021772 001200 68: BIT PGITAB(4),$1TMP1 ;CHECK FOR LEGAL PGF 
2000 020016 001403 BEQ 61% ;SKIP IF NO 
2001 020020 056437 021772 001124 BIS PGITAB(4) ,$GDDAT;LOAD PGF 
2002 020026 036437 022002 001200 618: BIT PGBTAB(4),$TMP1 ;CHECK FOR LEGAL PGB 
2003 020034 001403 BEQ 62$ SKIP IF NO 
2006 020036 056437 022002 001124 BIS PGBTAB(4) ,SGDDAT;LOAD PGB 
2005 020044 012777 000005 004660 62$: MOV #PGFE,@ACR 
2006 020052 017737 004660 001126 MOV aPGF ,SBDDAT ;READ PGF 
2007 020060 023737 001124 001126 CMP SGDDAT,SBDDAT ;CHECK PGF 
2008 020066 001403 B 7$ 
2009 020070 104044 ERROR+ 44 :PGF ERROR ON PG XFER 
2010 020072 004737 023526 JSR PC ,DMPREG 
2011 020076 005037 001124 7$: CLR $GDDAT sEXPECTED = 0 
2012 020102 017737 004630 001126 MOV aSTF ,SBDDAT :GET STF 
2013 020110 001403 BEQ 8$ :STF SHOULD BE 0 
2014 020112 104044 ERROR+ 44 STF NO 0 ON A PG XFER 
2015 020114 004737 023526 JSR PC ,DMPREG 
2016 020120 013737 024756 001124 8$: MOV SNAPO ,$GDDAT GET EXPECTED DATA FOR DCF 
2017 020126 017737 004604 001126 MOV aDCF ,SBDDAT GET DCF REGISTER 
2018 020134 023737 001126 001124 CMP SBDDAT,$GDDAT ;CHECK THAT THERE 1S NO CHANGE 
2019 020142 001403 BEQ 9$ 
2020 020144 104044 ERROR+ 44 DCF ERROR ON A PG XFER 
2021 020146 004737 023526 JSR PC ,DMPREG 
2022 020152 105200 9$: INCB RO >; INCREMENT TEST DATA 
2023 020154 001402 BEQ 10$ ;SKIP WHEN DONE 
2024 020156 000137 017452 JMP 1$ 


2025 920162 10$: 
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000004 


016437 


023450 


025020 
023306 
000012 
022002 
021772 
170360 
001202 
000007 
004456 
024756 
025020 


007400 
025020 
001124 
001124 


023526 


001124 


023526 


001124 


023526 
021762 


001200 
001202 


001200 


004456 
024756 
001124 
000001 


001124 


001124 
001126 
001126 


004352 


001126 


004262 


001126 


001124 
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PAGE 55 
CHECK OPERATION OF PG REQUESTS IN NORMAL MODE 


sFORCE A BREAK USING THE MAINTENENCE REGISTER AND TEST 
>THE DCF REGISTER 


ppetteeerrerereterererererrrrerereerrereeereneeeeentereeicereseeee 


s*TEST 55 TEST THE DCF REGISTER 


ppeereterrererrererrererererererterereerenerererenetanereraTeeeee 


TST55: 


118: 


128: 


13$: 


1$: 


2$: 


3$: 


SCOPE 


JSR PC,CLEARX INIT THE JIST 

MOV #OSBT,STMP1 7SET VALUE FOR MTC TO CLEAR BREAK. 
MOV #0, STMP2 7SET VALUE FOR CLEARING UNWANTED BITS. 
TST CONF 1G ;SEE WHAT CONFIGURATION. 

BNE 11$ 71 NOT MAINT., SKIP ON. 

JSR PC, SETMNT ;1f MAINT. ONLY, SET MAINT. LOOPBACK. 
MOV #MLEN*+DSBT,STMP1 NEW VALUE FOR CLEARING BRK. 
MOV BRKTAB(4) ,R1 ;GET BRK BIT FOR OWN LINE. 

BIS DCFTAB(4),R1 ;AND DCF BIT. 

COM R1 :MAKE "'BIC’’ MASK. 

BIC #170360,R1 

MOV R1,STMP2 ;STORE THE VALUE. 

MOV #OCFE,@ACR ;SELECT DCF 

MOV @DCF ,SNAPO SAVE THE DCF CONTENTS 

MOV SNAPO ,$GDDAT COPY DCF 

a _— #1 ;ANY OTHER INTERFACES? 

BN 

MOV #7400, $GDDAT SAY EXPECTED HAS OTHER BRK BITS. SET. 
TST CONF 16 7 1N MAINT. MODE? 

BNE 13% 

CLR $GDDAT 7YES -- ALL DCF BITS CLEAR. 

BIC BRKTAB(4) ,SGDDAT; REMOVE SID BRK 

MOV SNAPO , $BDDAT READ ACTUAL 

CMP SGDDAT,SBDDAT ;CHECK FOR LEGAL DCF 

BEQ 1$ SKIP IF OK 

ERROR+ 44 : INCORRECT DCF FOR SELECTED JIS! 

JSR PC ,DMPREG 

MOV #WMTCE ,@ACR SELECT MIC 

MOV #DSBT+MDSD,aMTC ;FORCE A BREAK 

MOV #OCFE,@ACR SELECT OCF 

MOV aDCF ,$BDDAT ;READ DCF 


BIC STMP2 ,SBDDAT ;CLEAR BITS NOT OUR OWN. 
MOV BRKTAB(4) ,SGDDAT;SET RELEVANT BRK BIT 
BIS DCFTAB(4) ,SGDDAT;SET RELEVANT DCF BIT 
CMP SGDDAT,SBDDAT ;CHECK ne 


BEQ 2$ :SKIP_ IF 

ERROR+ 44 i TNCORRECT “cr AFTER FORCING A BREAK 
JSR PC ,DMPREG 

MOV #MTCE ,@ACR SELECT MTC 

MOV STMP1 ,aMTC ;CLEAR BRK BIT 

MOV #OCFE,@ACR SELECT DCF 

MOV aDCF ,SBDDAT ;READ DCF 

BIC STMP2 ,SBDDAT 

BIC BRKTAB(4) ,SGDDAT; CLEAR OUT BRK BIT 

CMP $GDDAT,SBDDAT  : CHECK DCF 

BEQ 3$ :SKIP IF BRK=0 

ERROR*+ 44 INCORRECT DCF AFTER REMOVING THE BRK CONDITION 


JSR PC ,DMPREG 
MOV SIDTAB(4),$GDDAT;LOAD SELF ID # 


SEQ 0074 


K 6 
a. 
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2080 020532 052737 004010 001124 BIS #WIP+PRDY,SGDDAT ;ADD OTHER EXPECTED DATA 
2081 020540 012777 000007 004164 MOV #OCFE,@ACR ;SELECT DCF 
2082 020546 013777 001202 004162 MOV STMP2 ,aDCF ;CLEAR UNWANTED FLAGS. 
2083 020554 012777 000001 004150 MOV #PGCSE ,@ACR ;SELECT PGCS 
2084 020562 017737 004150 001126 MOV aPGCS,$BDDAT ;READ PGCS 
2085 020570 023737 001124 001126 CMP SGDDAT,SBDDAT ;CHECK PGCS FOR IP 
2086 020576 001403 BEQ 4$ ;SKIP IF OK 
2087 020600 104044 ERROR+ 44 ;DCF FLAG DID NOT SET IP 
2088 020602 004737 023526 JSR PC ,DMPREG 
2089 020606 017746 004130 4$: MOV alllv,-(SP) ;SAVE OLD PI 
2090 020612 017746 004126 MOV al11IP,-(SP) sDATA 
2091 020616 012777 020672 004116 MOV #5$,a111V ;LOAD NEW 
2092 020624 012777 000340 004112 MOV #340,a111P :P1 DATA 
2093 020632 012777 000001 004072 MOV #PGCSE ,@ACR SELECT PGCS 
2094 020640 012777 000004 004070 MOV #W1E,aPGCS sENABLE P] 
2095 020646 005037 177776 CLR PS s ALLOW PI 
2096 020652 000240 NOP 7 STALL 
2097 020654 012737 000340 177776 MOV #340,PS ;LOCKOUT PI 
2098 020662 104044 ERROR+ 44 3;NO Pl ON A DCF FLAG 
2099 020664 004737 023526 JSR PC ,DMPREG 
2100 020670 000401 BR 6$ 7 SKIP 
2101 020672 022626 5$: POPPOP sF1X STACK 
2102 020674 012677 004044 6$: MOV (SP)+,a111P ;RESTORE OLD 
2103 020700 012677 004036 MOV (SP)+,@111V :PI DATA 
2104 020704 012737 000000 001124 MOV #0,$GDDAT ;RELOAD EXPECTED DCF VALUE 
2105 020712 012777 000007 004012 MOV #OCFE,@ACR SELECT DCF 
2106 020720 016477 021772 004010 MOV DCFTAB(4) ,aDCF ;CLEAR DCF FLAG 
2107 020726 005377 004000 DEC @ACR sRESELECT DCF 
2108 020732 017737 004000 001126 MOV a0CF ,SBDDAT sREAD OCF 
2109 020740 043737 001202 001126 BIC STMP2,SBODAT sMASK OUT JUNK. 
2110 020746 023737 001124 001126 CMP SGDDAT,SBDDAT ;CHECK DCF 
2111 020754 001403 BEQ 7$ ;SKIP IF DCF-0 
2112 020756 104044 ERROR+ 44 WRITING A 1 TO DCF FLAG DID NOT CLEAR IT 
2113 020760 004737 023526 JSR PC ,DMPREG 
2114 020764 004737 023450 7$: JSR PC,CLEARX INIT. THE INTERFACE. 
2115 020770 012777 000004 003734 MOV WIMSKE ,@ACR ;SELECT THE IMSK REGISTER. 
2116 020776 012777 000017 003732 MOV #17, a1MSK ;SET ALL INTERRUPT MASKS. 
2117 021004 012777 000015 003720 MOV #WMTCE ,@ACR SELECT MTC. 
2118 021012 012777 000012 003716 MOV #OSBT+MLEN,@MTC ;D0 MAINT. LOOP TO CLEAR BREAKS. 
2119 021020 027777 003706 003704 CMP @ACR,@ACR : DELAY 
2120 021026 027777 003700 003676 CMP @ACR,@ACR We 
2121 021034 027777 003672 003670 CMP @ACR,@ACR 
2122 021042 012777 000011 003666 MOV #OSBT+MDSD,a@MTC ; CAUSE BREAK 
2123 021050 027777 003656 003654 CMP @ACR,@ACR 
2124 021056 027777 003650 003646 CMP @ACR,@ACR 
2125 021064 012737 000000 001124 MOV #0, $GDDAT ;SAY GOOD IS 0 
2126 021072 012777 000007 003632 MOV #OCFE,@ACR ;SELECT DCF 
2127 021100 017737 003632 001126 MOV @DCF ,SBDDAT :GET DCF 
2128 021106 042737 007400 001126 BIC #7400, $BDDAT ;CLEAR BREAKS 
2129 021114 023737 001126 001124 CMP SBDDAT,$GDDAT ;VERIFY 
2130 021122 001403 — BEQ 8$ 
2131 021124 104044 ERROR+ 44 
2132 021126 004737 023526 JSR PC ,DMPREG 
2133 021132 000207 8$: RTS PC sEXIT 
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35 SISSUE A SANITY TIMER REQUEST WITH INTERRUPT MASKS CLEAR WITH ALL COMBINATIONS OF 
36 ; TRANSMIT ENABLES AND CHECK FOR: 
37 ; CORRECT CONTENTS OF PGCS (RDY, IP, SELF-ID) 
38 ; RTE BITS IN THE EXC REGISTER TO BE CLEAR 
24 ; ALL OTHER FLAGS TO BE CLEAR (PGF, DCF, UIF) 
41 021134 STONL: 
42 speteeeeereererreeeeerrererreterereeeeeeHeeAeeATHKeeReAeeAAeA AAS 
3) TEST 56 CHECK OPERATION OF ST REQUESTS IN NORMAL MODE 
3) ppeteeecereeererererererteeeeereretereeeneeeeeReeaeeKeteeeeeee Tee 
(2) 021134 000004 1$156: SCOPE 
2143 021136 012777 100000 003566 MOV WCLR,@ACR SCLEAR THE 11ST 
2144 021144 004737 023450 JSR PC, CLEARK 
2145 021150 005737 025020 TST CONF 1G 
2146 021154 001001 BNE +h 
2147 021156 000207 RTS PC SEXIT IF WE CAN'T XMIT 
2148 021160 012737 021204 001110 MOV #1$,SLPERR :FIX START OF LOOP . 
2149 021166 012777 000007 003536 MOV #OCFE,@ACR 
150 021174 017737 003536 024756 MOV DCF, SNAPO ;SAVE IMAGE OF DCF REGISTER 
$1 021202 005000 CLR RO :INIT STTE DATA SETUP 
52 021204 012777 100000 003520 18: MOV #CLR,@ACR ZCLEAR THE IST 
§3 021212 012777 000005 003512 MOV #PGFE,@ACR TSELECT PGF 
54 021220 012777 007400 003510 MOV #7400 ,aPGF TCLEAR ALL 
§5 021226 012777 007400 003502 MOV #7400, aSTF ZFLAGS 
56 021234 012777 000017 003474 MOV #17, a0CF CLEAR BRK 
57 021242 012777 000015 003462 MOV WMTCE ,QACR :SELECT MTC 
$8 021250 012777 000010 003460 MOV #DSBT ,amTC :DISABLE BOOTS 
59 021256 010037 001200 MOV RO, STMP1 
60 021262 023727 025020 000003 CMP CONF 1G,#3 :SHOULD WE PREVENT XMIT OF ALL CODES? 
61 021270 001013 BNE 11$ :NO IF NOT CONFIG #3. 
62 021272 016401 021772 MOV STITAB(4),R1 «YES == GET MASK FOR SELF. 
63 021276 010146 MOV R1,-(SP) :SAVE INTR ENB 
64 021300 006301 ASL R1 :SHIFT 4X TO BOOT ENB 
65 021302 006301 ASL R1 
66 021304 006301 ASL R1 
67 021306 006301 ASL RI 
68 021310 052601 BIS (SP)+,R1 :GET INTR ENB MASK 
69 021312 005101 COM R1 
70 021314 040137 001200 a BIC R1,STMP1 SCLEAR BITS FOR DESTINATION OTHER THAN SELF. 
72 021320 010046 MOV RO,-(SP) ;SAVE COUNT VALUE 
73 021322 013700 001200 MOV STMP1,RO :GET ENABLE FOR PARITY GENERATOR 
74 021326 004737 023506 JSR PC,PARCAL ZCALCULATE PARITY OF DATA 
75 021332 012600 MOV (SP)+,RO ‘ RESTORE COUNT VALUE. 
76 021334 113737 001200 001201 MOVB = STMP1, $TMP1+1 
77 021342 106037 001201 RORB = STMP 141 ;POSITION DATA 
78 021346 106037 001201 RORB = STMP 141 
79 021352 106037 001201 RORB = STMP 141 
BO 021356 106037 001201 RORB = $TMP 141 
81 021362 012777 000002 003342 MOV #STTEE ,@ACR 
82 021370 013777 001200 003340 MOV STMP1 ASTTE ;LOAD TRANSMIT ENABLES 
83 021376 006301 ASL R1 GET PARITY 
B4 021400 005101 COM RI FIX PAR BIT 
85 021402 042701 177775 2$: BIC #177775,R1 
86 021406 010137 001124 MOV R1,$GDDAT ;LOAD PARITY 
87 021412 052701 000001 BIS #1,R1 
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000207 


000003 
003306 


177411 


000010 


023526 
000003 
003222 
001126 


023526 


001124 
023526 
021772 


021772 
022002 


022002 
000006 
003076 
001124 


023526 


003040 


023526 


001126 


023526 


021204 


003306 


001124 
003264 


001126 
001126 


003222 
001126 
001124 


003164 
001126 
001126 


001200 


001124 
001200 


001124 
003076 


001126 
901126 


003040 
001126 


001124 


001124 
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3$: 


4$: 


5$: 


6$: 


618: 


62$: 


7$: 


8$: 


9$: 


10$: 


14:32 PAGE 56-1 
CHECK OPERATION OF ST REQUESTS IN NORMAL MODE 
MOV #STCSE ,@ACR ‘ 
ah sie ;LOAD PARITY, ENB, AND COUNT 
L 
BIS #1M0+177401 ,$GDDAT 
MOV #WIMSKE ,@ACR SELECT IMSK 
DECB @ACR 
MOV @STCS,$BDDAT 
BIT #1MO,SBDDAT ;WAIT FOR TMO 
BNE 4$ 
DEC R1 ;BUT DON'T WAIT TOO LONG 
BNE br 
ERROR*+ ;TMO DID NOT SET ON A ST XFER 
JSR PC, DMPREG 
MOV WSTCSE ACR SELECT STCS 
MOV @STCS,$BODAT ;READ STCS 
CMP $BDDAT,SGDDAT ;1S STCS OK? 
BEQ 5$ 
ERROR+ 44 :STCS STATUS ERROR ON ST XFER 
JSR PC ,DMPREG 
CLR S$GDDAT ;SET EXPECTED RTE FLAGS 
MOV WEXCE ,@ACR 
MOV @EXC,SBDDAT ;GET EXC REGISTER 
CMP SGDDAT,SBDDAT 
BEQ 6$ 
ERROR+ 44 ;EXC NOT 0 ON A ST XFER 
JSR PC ,DMPREG 
BIT STITAB(4) ,STMP1 ;CHECK FOR STF 
BEQ 61% :SKIP IF 0 
BIS STITAB(4) ,SGDDAT;SET STF 
BIT STBTAB(4),$TMP1 ;CHECK FOR STB 
BEQ 62$ sSKIP IF 0 
BIS STBTAB(4) ,SGDDAT;SET STB 
MOV WSTFE,@ACR 
MOV aSTF,$BDDAT sREAD STF 
CMP SGDDAT,$BDDAT ;CHECK DATA 
BEQ 7$ 
ERROR+ 44 STF ERROR ON ST XFER 
JSR PC ,DMPREG 
CLR $GDDAT EXPECTED = 0 
MOV #PGFE ,@ACR SELECT PGF 
MOV aPGF ,$BDDAT ;GET PGF 
BEQ 8$ ;PGF SHOULD BE 0 
ERROR+ 44 ;PGF NO 0 ON A ST XFER 
JSR PC ,DMPREG 
MOV SNAPO ,$GDDAT ;GET EXPECTED DATA FOR DCF 
MOV #OCFE,@ACR SELECT DCF 
MOV aDCF ,SBDDAT :GET DCF REGISTER 
‘oy epee ;CHECK THAT THERE IS NO CHANGE 
ERROR+ 44 DCF ERROR ON A ST XFER 
JSR PC ,DMPREG 
INCB RO ; INCREMENT TEST DATA 
BEQ 10% SKIP WHEN DONE 
JMP 1$ 
RTS PC sEX1T 


SEQ 0077 
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021770 
021772 


022000 
022002 
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000000 


001400 


00000; 
000002 
000004 
000010 


000400 
001600 
002000 
004000 
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LINE CONTROL BIT TABLES 


SIDTAB: 


PGITAB: 
STITAB: 


RTETAB: 


PGBTAB: 
STBTAB: 
BMITAB: 
PBF TAB: 
SBF TAB: 
BRKTAB: 
UVITAB: 


~SBTTL 


RTEO 
RTE1 
RTE2 
RTE3 


ecec¢& 
ee 
Wwr—o 


LINE CONTROL BIT TABLES 
SID TABLE 


PROGRAM INTERRUPT ENABLE TABLE 
SANITY INTERRUPT ENABLE TABLE 
; INTERRUPT MASK INHIBIT TABLE 
;PGM INTERRUPT FLAG TABLE 
SANITY INTERRUPT FLAG TABLE 
;DCLO INTERRUPT FLAG TABLE 

; INVALID INPUT FLAG TABLE 


;PROGRAM BOOT ENABLE TABLE 
;SANITY BOOT ENABLE TABLE 
;BOOT MASK INHIBIT TABLE 
;PGM BOOT FLAG TABLE 

;SANITY BOOT FLAG TABLE 
;BREAK STATE TABLE 
sUNEXPECTED INPUT FLAG TABLE 


SEQ 0078 


8 
C=-11-CRIJA-B woh 30A(1052) 18-JUN-79 14:32 PAGE 58 
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ihe 022012 ENDTST: 
2275 70N FIRST PASS, DETERMINE sanity TIMER COUNT RATE (256 US, 8.192 MS, 
2276 OR 16.384 MS) AND PRINT IT OUT 
5 fe ;0N SUBSEQUENT PASSES, CHECK FOR CONSISTENCY. 
te MAINTENANCE LOOPBACK 1S USED, WITH HARDWARE SELF-ID. 
2281 pp ereeererererrerrrerrrrerererererererrerrenenerenenerereeeeeeTes 

(3) y*TES’ 57 DETERMINE SANITY TIMER COUNT RATE 

(3) 33 etter “RReeeeeereerereeeererererertereeeeekeeeeaeeeeeeaeeeeteerereeese 

(2) 022012 000004 TST57: SCOPE 
2282 022014 012737 000340 177776 MOV #340,PSw ;RAISE PROCESSOR PRIORITY 
2283 022022 004737 023306 JSR PC, SE TMNT INIT THE INTERFACE 
2284 022026 012777 000015 002676 MOV #MTCE,@ACR >SELECT MTC REGISTER 
2285 022034 012777 000013 002674 MOV #DSBT+MLEN+MDSD, aMTC :SET LOOPBACK, DISABLE BOOT & DRIVERS 
2286 022042 117704 002666 MOVB @ACRH,R4 :GET HARDWARE SELF-1D 
2287 022046 010437 024754 MOV R4,LINMBR PUT IT INTO LINE NUMBER WORD 
2288 022052 006304 ASL R4 sMAKE A WORD INDEX 
2289 022054 012777 000002 002650 MOV ASTTEE,@ACR SELECT STTE (S.T. TRANSMIT ENABLE) 
2290 022062 016477 021772 002646 MOV STITAB(RG) ,ASTTE SET XMIT ENABLE FOR SELF 
2291 022070 017746 002650 MOV @llIP,-(SP) > SAVE OLD INTR VECTOR INFO 
2292 022074 017746 002642 MOV alllv,-(SP) 
2293 022100 012777 022234 002634 MOV #43, alllv ;SETUP NEW INTR VECTOR 
2294 022106 012777 000340 002630 MOV #340,a111P 
2295 022114 005000 CLR RO :CLEAR CHARACTER COUNT 

022116 013701 024732 MOV ACR,R1 :R1 = ACR ADDRESS 

2297 022122 013702 024736 MOV ADR ,R2 RD = ADR ADDRESS 
2298 022126 012703 000001 MOV #PGCSE.R3 :R3 = PGCS ACCESS CODE 

2 022132 012704 004000 MOV #PRDY,RS iRs = PG RDY BIT MASK 
2300 022136 012705 000007 MOV #PTP+1E4+G0,R5 RS = VALUE FOR LOADING PGCS 
2301 022142 012711 000003 MOV #STCSE,(R1) :SELECT STCS 
2302 022146 012712 000401 MOV #401, (R2) START SANITY TIMER FOR DOING 2 COUNTS 
tty 022152 005037 177776 CLR PSwW ALLOW INTERRUPTS 
2305 022156 010311 1$: MOV R3,(R1) SELECT PGCS 
2306 022160 010512 MOV R5,(R2) sXMIT NULL PG COMMAND, SET INTR ENABLE 
2307 022162 005200 INC RO sCOUNT # OF CHARS TRANSMITTED 
2308 022164 001404 BEQ 3$ :BUT DON'T DO FOREVER. 
2309 022166 010311 23: MOV R3,(R1) sSELECT PGCS 
2310 022170 030412 BIT R4,(R2) :LOOK FOR PG RDY 
2311 022172 001371 BNE 1$ :XMIT AGAIN IF SET 
o3i¢ 022174 000774 BR 2$ sLOOP IF NOT 
2314 > COME oe If NO TIMEOUT INTR SEEN AFTER 64K TRANSMITS. 
2315 022176 012737 000340 177776 38: #340,PSW RAISE PROCESSOR TO LOCKOUT INTERRUPTS 
2316 022204 012737 177410 001124 ROY #177400+TMO,$GDDAT ;SETUP EXPECTED DATA 
2317 022212 012711 000003 MOV #STCSE,(R1) >SELECT STCS 
2318 022216 011237 001126 MOV (R2) ,SBDDAT [GET CONTENTS OF STCS FOR PRINTOUT 
2319 022222 104044 ERROR+ 44 NO TIMEOUT SEEN AFTER 64K TRANSMITS. 
2320 022224 004737 023526 JSR PC,DMPREG 
$355 022230 000137 023260 JMP 99% sTHEN JUST EXIT 
2323 COME HERE ON INTERRUPT, CHECK THAT ph S THE CORRECT ONE. 

2324 022234 062706 000004 4$: ADD #4,SP ;POP STACK 
2325 022240 010046 MOV RO,-(SP) > SAVE Count 
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2326 022242 010311 MOV R3, (R1) :SELECT PGCS 
2327 022244 012705 000062 MOV #50. ,R5 ‘WAIT FOR FINAL PG RDY 
2328 022250 005305 DEC R5 
2329 022252 001376 BNE 2 
2330 022254 011237 001126 MOV (R2),$BDDAT ;GET PGCS CONTENTS 
2331 022260 011137 001124 MOV (R1) .SGDDAT [GET SELF-1D 
2332 022264 042737 000017 001124 BIC #17, S$GDDAT ;CLEAR CODE 
2333 022272 052737 004016 001124 BIS MPROY+IE+1P+PTP, $GDDAT sSET UP EXPECTED VALUE 
2334 022300 023737 001126 001124 CMP SBDDAT,SGDDAT ‘; VERIFY PGCS CONTENTS 
2335 022306 001403 BEQ 5$ 
2336 022310 104044 ERROR+ 44 :PGCS INCORRECT AFTER INTERRUPT 
2337 022312 004737 023526 JSR PC ,DMPREG 
2338 022316 005037 001124 5$: CLR SGDDAT sSETUP EXPECTED VALUE FOR PGF, DCF, AND EXC 
2339 022322 012777 000005 002402 MOV #PGFE,@ACR “SELECT PGF 
2340 022330 017737 002402 001126 MOV aPGF ,SBDDAT sGET PG RECEIVE FLAGS 
2341 022336 001403 BEQ 6$ “SKIP IF 0 
2342 022340 104044 ERROR+ 44 sPGF NOT O AFTER INTERRUPT 
2343 022342 004737 023526 JSR PC ,DMPREG 
2344 022346 012777 000007 002356 68: MOV #DCFE,@ACR :SELECT DCF 
2345 022354 017737 002356 001126 MOV aDCF ,SBDDAT ;GET FLAGS: t TEST THEM 
2346 022362 001403 BEQ 7$ : == SHOULD BE 0 
2347 022366 104044 ERROR+ 44 = DCF NOT o AFTER INTERRUPT 
2348 022366 004737 023526 JSR PC ,DMPREG 
2349 022372 012777 000010 002332 78: MOV #EXCE,@ACR :SELECT EXC 
2350 022400 017737 002332 001126 MOV @EXC, $BDDAT “GET FLAGS & TEST THEM 
2351 022406 001403 BEQ 8$ : == SHOULD BE 0 
2352 022410 104044 ERROR+ 44 EXC NOT CLEAR AFTER INTERRUPT 
2353 022412 004737 023526 JSR PC ,DMPREG 
2354 022416 012737 000017 001124 8§: MOV #17,$GDDAT sSETUP EXPECTED VALUE FOR STF 
2355 022424 012777 000006 002300 MOV #STFE,@ACR :SELECT STF 
2356 022432 017737 002300 001126 MOV aSTF,$BDDAT GET STF 
2357 022440 023737 001126 001124 CMP SBDDAT,$GDDAT sCHECK VALUE 
2358 022446 001403 BEQ 9$ 
2359 022450 104044 ERROR+ 44 sSTF INCORRECT AFTER INTERRUPT 
2360 022452 004737 023526 JSR PC ,DMPREG 
2362 022456 012637 001126 9$: MOV (SP)+,$BDDAT ;GET COUNT VALUE 
2363 022462 005737 025022 TST STCCNT :1S THERE A VALID COUNT? 
2364 022466 001402 BEQ +6 
2365 022470 000137 023200 JMP 208 s1F YES, GO VERIFY CONSISTENCY. 
2366 022474 012737 000011 001124 MOV #9.,$GDDAT 3NO -- SO START CHECKING VALUE. 
2367 022502 023737 001126 001124 CMP SBDDAT, SGDDAT 718 COUNT .LT 9.? 
2368 022510 002002 BGE ; +6 :G0 ON IF NO 
2369 022512 000137 023170 JMP 12% TERROR IF YES (COUNTER TOO FAST) 
2370 022516 012737 000024 001124 MOV #20. ,$GDDAT 
2371 022524 023737 001126 001124 CMP SBDDAT,SGDDAT; 
2372 022532 003047 BGT 10$ “GREATER THAN 20.? 
2373 022534 013737 001126 025022 MOV SBDDAT,STCCNT :NO, SO BETWEEN 9 & 21 == VALID 
2374 022542 012737 000024 025026 MOV #20. ,MAXCNT “SAVE MAX LIMIT 
2375 022550 012737 000011 025024 MOV #9. ,MINCNT sAND MIN LIMIT, FOR FUTURE TESTING. 
2376 022556 005737 000042 1ST aaad TARE WE IN ACT? 
2377 022562 001402 BEQ .*6 ;BEQ IF NO. 
2378 022564 090137 023260 JMP 99$ at YES, DON'T PRINT. 
2379 022570 104401 022576 TYPE 038 :TYPE ASCIZ STRING 

(1) 022574 000424 BR 3GET OVER THE ASCI2Z 

(1) 33658: .ASCI2 rete, tmnt ty TIMER SET FOR 256US PER COUNT./<200> 


MAINDEC-11-CRIIA-B 
CRIIAB.P11 


FANZS 


Ww WAN AWw 
“ooo Boo fe] 


WWA AAR 
235222 


022646 
922646 


022652 
022660 
022666 


0 
022742 


023016 
023016 


023020 


023110 


023166 
023166 


023170 
023172 
023176 


023200 


023254 
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000137 


000520 


000426 


000434 


104044 


004737 


MACY11 30A(1052) 


14:26 


023260 


000500 
001126 


001200 
001126 


001126 


000042 
022744 


001200 
001126 


002400 
001126 


001126 
001200 
002400 
000042 


023112 


023526 


025026 
025022 
001126 
023526 
025024 
001126 


023526 





001124 
001124 


001124 
001200 


025022 
025024 
025026 


001124 
001124 


001124 
002400 


025022 
025024 
025026 


001124 
024750 


001124 
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157 DETERMINE SANITY TIMER COUNT RATE 

648: 
JMP 99% 

10$: MOV #320. ,$GDDAT 
_* en ;CHECK FOR COUNT BETWEEN 320. 

L 

MOV #640. ,SGDDAT 
CMP SBDDAT #640. AND 640. 
BGT 118 
MOV SBDDAT,STCCNT 3SAVE CQUNT 
MOV #320. ,MINCNT ;AND LIMITS 
MOV #640. ,MAXCNT 
TST ar42 ;ARE WE IN ACT? 
BNE 99% if YES, DON'T PRINT. 
TYPE re hy i TYPE ASCIZ eraser 


BR 
33678: .ASCI2Z 
66$: 


118: MOV 


37698: 
68$: 
BR 


;HERE ON ERROR 


12$: ERROR+ 44 ;CAN'T RESOLVE SANITY TIMER VALUE 
JSR PC ,DMPREG (COUNTS NOT WITHIN LIMITS 
BR 99% 
;HERE ON SUBSEQUENT PASSES TO CHECK CONSISTENCY 
208: MOV MAXCNT,SGDDAT  ;GET EXPECTED MAX LIMIT FOR TYPEOUT. 
MOV STCCNT,DISPLY ;DISPLAY COUNT AS FOUND ON FIRST PASS. 
CMP SBDDAT.SGDDAT ;SEE THAT COUNT NOT EXCEEDED. 
BLE 1$ :OK IF .LE MAX LIMIT 
ERROR+ 44 ; COUNT GREATER THAN MAX OF RANGE. 
JSR PC ,DMPREG 
BR 99% 
218: MOV MINCNT,$GDDAT ;GET EXPECTED MIN LIMIT. 
"CMP SBDDAT,SGDDAT ;CHECK 
BGE 99$ :OK If ACTUAL .GE MIN LIMIT. 
ERROR+ 44 ;COUNT LESS THAN MIN OF RANGE. 
JSR PC ,DMPREG 


GET OVER THE ASCIZ 
2500>/ SANITY TIMER SET FOR 8.192MS PER COUNT./<200> 


99% 
#640. ,$GDDAT 


SBDDAT,$GDDAT ;COUNT .LT 640.? 

12% ERROR IF YES. 
#1280. ,$GDDAT 

SBDDAT,#1280. ;GREATER THAN 1280.? 
12$ ERROR IF YES. 
SBDDAT,STCCNT ;SAVE COUNT 


#640. ,MINCNT ;AND LIMITS 
#1280. ,MAXCNT 
an4e ;ARE WE IN ACT? 


> TYPE ASCIZ STRING 
68$ GET OVER THE ASCI2Z 
<200>/SANITY TIMER SET FOR 16.384MS PER COUNT./<200> 


99% 


SEQ 0081 


MAINDEC-11-CRIIA-B 
CRIIAB.P11 


023260 
023264 
023270 


023276 
023300 
023302 


18-JUN-79 1 


012677 
012677 
012777 


000005 
000240 
000137 


ret Me 30A(1052) 


001456 
01454 
100000 001434 


032052 


7 
veh" et 14:32 PAGE 58-3 


993: 


DETERMINE SANITY TIMER COUNT RATE 
SRESTORE VECTOR 
TINIT THE INTERFACE 


MOV (SP)+,alllv 
MOV (SP)+,@111P 
MOV #CLR,@ACR 
RESET 

Pp 


NO 
JMP SEOP 


SEQ 0082 


, € 
MAINDEC-11-CRIIA-B MACY11 30A(1052) 18-JUN-79 14:32 PAGE 59 
CRIIAB.P11 18-JUN=79 14:24 TEST AND UTILITY SUBROUTINES SEQ 0083 
at -SBTTL TEST AND UTILITY SUBROUTINES 
2440 3SET THE 11ST TO INTERNAL LOOPBACK MAINTENENCE MODE USING 
nee | ; THE S1D VALUE POINTED TO BY R4 
2443 023306 005037 023446 SETMNT: CLR MNTBTS ;CLEAR EXTRA MNT BITS 
2444 023312 012777 100000 001412 SETMNI: MOV #CLR,@ACR ;RESET THE INTERFACE 
2445 023320 016400 021762 MOV SIDTAB(4) ,RO GET SID VALUE 
2446 023324 062700 000016 ADD #TAT,RO ;ADD LOOPBACK + BOOT DISABLE TO MNT. SID 
2447 023330 063700 023446 ADD MNTBTS,RO ADD ANY EXTRA MNT BITS 
24648 023334 027777 001372 001370 CMP @ACR,@ACR SHORT DELAY TO ALLOW RESET TO WORK 
2449 023342 027777 001364 001362 CMP @ACR,@ACR 
2450 023350 012777 000015 001354 MOV WATCE ,@ACR ;CHOOSE MTC 
2451 023356 010077 001354 MOV RO,@MTC ;LOAD MTC 
2452 023362 012777 000001 001342 MOV #PGCSE ,@ACR ;SELECT PGCS 
2453 023370 017737 001342 024750 MOV @PGCS,DISPLY ;READ PGCS 
2454 023376 032737 004000 024750 BIT #PRDY,DISPLY ;CHECK FOR RDY 
2455 023404 0010035 BNE 1$ sSKIP IF SET 
2456 023406 104044 ERROR+ 44 DEVICE CLR DID NOT SET PGCS RDY 
2457 023410 004737 023526 JSR PC ,DMPREG 
2458 023414 1$: 
2459 023414 012777 000005 001310 SETMNX: MOV #PGFE,@ACR ;SELECT PGF 
2460 023422 012777 007400 001306 MOV #7400 ,aPGF ;CLEAR BOOT FLAGS 
2461 023430 012777 007400 001300 MOV #7400,aSTF ;CLEAR BOOT FLAGS 
2462 023436 012777 000017 001272 MOV #17,a0CF CLEAR DCF FLAGS 
ee 023444 000207 RTS PC sEXIT 
4 

hen 023446 000000 MNTBTS: 0 

6 
poet 023450 012746 023414 CLEARX: MOV MSETMNX,-(SP)  ;GET INTERMEDIATE RETURN FOR FLAG CLEARING 
46 
74 +4 sROUTINE TO INIT THE IIST, THEN DELAY A SHORT TIME 

4 
2471 023454 012777 100000 001250 CLEAR: MOV #100000 ,aACR RESET THE INTERFACE 
2472 023462 012746 000050 MOV #30,-(SP) ;GET A LOOP COUNTER 
2473 023466 005316 1$: DEC (SP) 
2474 023470 001376 BNE 1$ 
2475 023472 005726 TST (SP)+ 
sore 023474 000207 RTS PC 

4 
2478 ;SET MAINTENENCE MODE SO THAT SANITY TIMER OPERATIONS ACT 
2479 LIKE PROGRAM GENERATED OPERATIONS 
2481 023476 012737 004000 023446 SSTMNT: MOV #MTYP ,MNIBTS SET TYP TO A 1 
2482 023504 000702 BR SETMNI sEX11T THROUGH SETMNT 


Nm 
= 
ie J 
So 


—-—-------- 


G 
MAINDEC-11-CRIIA-B rely 30A(1052) 18-JUN-79 14:32 PAGE 60 
CRIIAB.P11 18-JUN-79 14:26 TEST AND UTILITY SUBROUTINES SEQ 0084 


PARITY CALCULATION eit 
;COUNTS THE NUMBER OF 1 BITS IN RO IN RI 


023506 010046 PARCAL: MOV RO,-(SP) 
1 CLR R1 


1 
0 (SP)+,RO 
023524 000207 PC 





MAINDEC-11-CRIIJA-B 
CRIJAB.P11 


ron rernrrnt 
PAAAMAAFFW 


623640 
023642 


MACY11 saaiahicinis 
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032777 


005077 
017746 


000207 
000000 


000001 


042002 


001150 
001150 


042112 
023642 


042131 


001120 
155322 


001000 
001110 


155404 


023642 


155306 


18-JUN-79 


14:32 


PAGE 61 
TEST AND UTILITY SUBROUTINES 
;DUMP ALL REGISTERS ROUTINE 


DMPREG: BIT 
BNE 


1$: TYPE 


2$: 


3$: BIT 


4$: 


#B1T0,aSWR 


@ADR ,~ (SP) 


. TWOSP 

TCR 

2$ 

-CARET 
(SP)+,@ACR 
OSWR 

3% 


#B1T9,aSwWR 
4$ 
SLPERR, (SP) 
PC 


7 


1 


3:SAVE @ADR FOR TYPEOUT 
3;G0 TYPE=-OCTAL ASCII(ALL DIGITS) 


DONE 9? 
09 


3;POP STACK INTO @ACR 
; CHECK FOR ERR HLT 
SKIP IF 0 


;CHECK FOR LOOP ON ERROR 

sSKIP IF CLEAR 

:1f LOOP ON ERROR, RETURN TO PRESET LOCATION 
SERIT 


SEQ 0085 


MAINDEC-11-CRIIA-B 
CRIIAB.P11 


nmr 


Morn rwr 
WANNA RANMA AR RR OUI 
I wet WIEN Ss FN 
Pewwnrvurvw~ aOOOnwowrwr~ Ou 


023644 
023644 
023650 


023752 


023772 
024104 


024216 
024222 


024304 


024310 
024312 


MACY11 ans 
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104401 
000440 


104410 
022627 
001402 
000137 
104401 
000444 


104401 


104401 
013746 


we? 


104403 
006 


023652 


000131 


024504 
023774 


041706 
024732 


042110 


024732 
024732 


000003 


024732 
024734 


024742 


042110 


024742 
024742 


000003 


024742 
000002 
041761 
024746 


160000 
024732 
024734 
024736 
024740 


002000 
024742 


024744 
024744 


18-JUN-79 


l 
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T AND UTILITY SUBROUTINES 


ROUTINE TO GET DEVICE PARAMETERS 
GETPAR: 
TYPE 


33658: 
64%: 


118: 


12$: 


2$: 


gtz° noe ASCIZ STRING 
ET OVER THE ASCIZ 
£300>/00 YOU WANT TO CHANGE DEVICE PARAMETERS (CSR, ETC.)? CY OR NJ/ 


(SP)+,a'Y ;SEE WHAT ANSWER IS. 
-*6 cf Y(ES), ASK FOR PARAMETERS. 
3$ ;1f ANYTHING ELSE, ASSUME NO. 


ry ain ASCIZ STRING 
;GET OVER THE ASCIZ 
2550>/1N THE FOLLOWING THREE PRINTOUTS, TYPE THE NEW DATA OR O IF NO CHA 
,ASKDVA 
ACR,=(SP) 3:SAVE ACR FOR TYPEOUT 
3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
, SPACE 
(SP)+,RO ;GET VALUE TYPED IN. 
11% ;1F ZERO, DON'T CHANGE. 
RO,ACR ;STORE NEW VALUE 
ACR, #160000 CHECK FOR LEGALITY 
10$ ;LOOP IF BAD 
#3,ACR ;CHECK FOR MOD. 4 
10$ ;LOOP IF BAD 
ACR,ACRH ;LOAD OTHER ADDRESS SLOTS 
ACRH 
ACRH,ADR 
ADR 
ADR, ADRH 
ADRH 
»ASKPIV 
I11V,-(SP) 7:SAVE I11v FOR TYPEOUT 


>:GO TYPE--OCTAL ASCII 
6 SS TYPE 6 DIGITS 


0 >; SUPPRESS LEADING ZEROS 
, SPACE 

(SP)+,RO ;GET VALUE TYPED IN. 

12$ :1F 0, DON'T CHANGE. 

RO, I11V ;LOAD NEW VALUE 
111v,#2000 ;CHECK FOR LEGALITY 


1$ ;LOOP IF BAD 


#3,111V ;CHECK FOR MOD. 4 

1$ ;LOOP IF BAD 

I11v,111P ;LOAD PIL 

#2,111P sWITH I1]]ve2 

eASKBRL 

TilL,~(SP) 7:SAVE I1IL FOR TYPEOUT 
3:G0 TYPE--OCTAL ASCII 

6 3: TYPE 6 DIGITS 


MAINDEC-11-CRIIA-B 
CRIIAB.P11 


Ree ele 


024362 
024432 
024432 


024440 
024444 


024504 
024510 


024610 


024632 


104401 
000423 


012737 


104401 
104401 
000437 


104412 


090207 


MACY11 veces 
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042110 


024746 
024746 


024746 
024504 
024364 


002762 
001225 
154526 


000002 
001176 


001225 
001225 


024512 


025020 
025020 


024356 


000004 
000007 


001176 
024454 


001176 
003004 


003004 


J 7 
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TEST AND UTILITY SUBROUTINES 


BYTE 0 ;; SUPPRESS LEADING ZEROS 
TIPE SPACE 
RDOCT 
MOV (SP)+,RO ;GET VALUE TYPED IN. 
BEQ 21% s1f ZERO, DON'T CHANGE. 
MOV RO,IIIL GET BR LEVEL 
218: CMP 111L,#4 7 CHECK FOR LEGALITY 
BLO 2$ LOOP 1F BAD 
CMP 111L,#7 7 CHECK 
BHi 23 = LOOP If BAD 
308 JMP 3$ ; JUMP OVER HELP MSG. 
TYPE 69% oo ASCIZ STRING 
ce 68$ :GET OVER THE ASCIZ 
ms ASCIZ <200>/TEST CONF IGURATION-SELECT CODES ARE:/ 
MOV #MTAB,STMPO :GET START OF MESSAGE POINTER TABLE. 
31$: TYPE » SCRLF sOUTPUT NEWLINE 
are asTMPO, 32% ;GET ADDRESS OF TEXT LINE TO PRINT. 
Y 
328: -WORD 0 
ADD #2,STMPO > POINTER 
CMP STMPO,#CNF MAX iA END? 
BLO 1$ 4 NOT, 7 FOR MORE. 
TYPE  SCRLF SEXTRA CRLF 
3 TYPE ,SCRLF ;NEW LINE 
TYPE 71% 4h ASCIZ STRING 
R 70% T OVER THE ASCIZ 
The ASCIZ <200>/ENTER TEST. bONF 1GURATION SELECTION (0-10) OR 111 FOR HELP: 
RDOCT 
MOV (SP)+,CONFIG 3;GET VALUE 
CMP CONF 1G,CNFMAX sSEE IF VALID 
BLOS +6 
JMP 30$ s1f NOT, DO HELP MSG. 
RTS PC sEXIT 


SEQ 0087 


/ 









CRIIAB.P11 


2596 024634 


2609 024710 
024712 


2612 024726 
024730 


MAINDEC-11-CRIIJA-B 
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005737 


010046 
104403 


104401 
000207 


000000 


MACY11 enn ms -JUN-79 


001236 


000042 


042115 
100000 
000042 


177770 
024730 
000042 


042131 
042131 


ey 
K 

14:32 PAGE 63 

T AND UTILITY SUBROUTINES 


SEQ 0088 


ROUTINE TO REPORT THE SELF ID OF THE IIST 


GETSID: TST 
BEQ 
1$: TST 


000046 2s: MOV 


3$: RTS 
SIDNUM: 0 


$PASS 
1$ 
PC 
aa4e 

$ 
,DMPSID 
WCLR,@ACR 
@ACR,RO 
RO 
#177770,R0 
RO,S1DNUM 
aas2 


3$ 
RO,-(SP) 


oo 


/CARET 
,CARET 
PC 


sPASS 1? 
;SKIP IF YES 


X1T IF 


3€ NOT 
;ARE WE IN ACT? 
:1f YES, DON'T PRINT 


;CLEAR INTERFACE 
are 51D 


> INTO B2-0 
CLEAR B15-3 
; SAVE SELF 1D NUM, 


N AC 
‘DON T PRINT IF YES. 
:;SAVE RO FOR TYPEOUT 


::GO TYPE=-OCTAL ASCII 


3;TYPE 6 DIGITS 
>; SUPPRESS LEADING ZEROS 


sEXIT 


MAINDEC-11-CRIIA-B 
CRIIAB.P11 


024732 
024734 


024736 


024746 


024750 
024752 
024754 
024756 
025016 
025020 
025022 


025024 
025026 


18-JUN-79 


177502 


177503 
000260 
000262 
000006 


000000 


000020 
000000 
000000 
000000 


000000 
000000 


reg tt 30A(1052) 


18-JUN-79 
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7 


DEVICE ADDRESS PARAMETER BLOCK 
-SBTTL DEVICE ADDRESS PARAMETER BLOCK 


ACR: 
ACRH: 


: CONSTANTS AND VARIABLES 


177500 
177501 


177502 


177503 
260 
262 

6 


DISPLY: 0 
TIMPER: 0 
LINMBR: 0 
SNAPO: .BLKW 
PARFLG: .WORD 
CONFIG: .WORD 
STCCNT: .WORD 
MINCNT: .WORD 
MAXCNT: .WORD 


oo oOl6UmODlC OF 


;ACCESS CONTROL REGISTER 
HIGH BYTE OF ACR 


sACCESS DATA REGISTER 

;PGM-GEN. XMIT ENABLES REGISTER 
;PGM-GEN. CS 

SANITY TIMER XMIT ENABLES REGISTER 
SANITY TIMER CSR 

; INPUT MASKS REGISTER 

7PGM-GEN. 1/B FALAGS REGISTER 
SANITY TIMER FLAGS REGISTER 
;DCLO/DISCONNECT FLAGS REGISTER 
EXCEPTIONS REGISTER 
;MAINTENANCE REGISTER 

;ADR HIGH BYTE 

;PGCS HIGH BYTE 

;STCS HIGH BYTE 

7 IMSK HIGH BYTE 

;PGF HIGH BYTE 

;0CF HIGH BYTE 

sEXC HIGH BYTE 

;MTC HIGH BYTE 

11ST INTERRUPT VECTOR ADDRESS 
: 11ST INTERRUPT PRIORITY ADDRESS 
11ST INTERRUPT LEVEL 


;COUNT OF # PG CHARACTERS TRANSMITTED DURING 
;TWO COUNTS OF THE SANITY TIMER. 
MINIMUM ALLOWED VALUE OF STCCNT. 
>MAXIMUM ALLOWED VALUE OF STCCNT. 


aa 2. o 
SEQ 0089 


MAINDEC-11-CRIIA-B 
CRIIAB.P11 


™m Nm Nm 


Nm 
RRR D RR RDO ARR ROKR RRO KR 


et OD tk et tk tt at es ts as 
wwe wOwww Owww Wwe ww nw 


025030 


025044 


025050 
025054 


025146 
025146 
025152 
025236 
025236 
025242 
025320 
025320 
025324 
025410 
625410 
025414 
025476 
025476 
025502 
025506 


025534 


025556 


025626 
025626 


025630 


025650 


MACY11 30A(1052) 
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000004 
004737 
005227 
001402 
000137 
104401 
000434 


104401 
000431 


104401 
000426 


104401 
000431 


104401 
000430 


005777 


000423 


000723 
012737 


012777 


024634 
177777 


025476 
025056 
025154 
025244 


025326 


025416 


153444 
025510 


024754 
177764 
025560 


025630 
023306 
000015 
000005 


001110 


177062 
177060 


18-JUN-79 


14:32 PAGE 65 


MAINTENANCE-MODE SELF-BOOT TEST 
-SBTTL MAINTENANCE-MODE SELF-BOOT TEST 
sMAINTENANCE-MODE BOOT TEST. 


USES MAINTENANCE LOOPBACK TO GENERATE BOOT TO THIS CPU 
;RECEIVE CHANNEL AND TYPE ‘PG OR ST) SELECTED VIA OPERATOR INPUT. 


(0-3) FOR PG BOOTS, 


(10-13) FOR ST 


; OoTS. 
[THIS TEST VERIFIES OPERATION OF THE BOOT-PULSE COMBINING LOGIC, 
; THE BOOT ONE-SHOT, THE DRIVER, 


MMBOOT : 


SCOPE 


PC,GETSID 
#-) 


+6 
1$ 


,65% 


64$ ;GE 
<CRLF>/AFTER SELECTING THE OPERATING CODE, 


,67% 


AND THE CABLE. 
GET SELF=-1D 
FIRST TIME? 
:1f NOT, SKIP EXPLANATI 
2a TYPE ASCIZ STRING 
T OVER THE ASCIZ 


+e TYPE ASCIZ STRING 
T OVER THE ASCI2Z 


ON. 


66$ ;GE 
<CRLF>/ THE OPERATOR MUST VERIFY THAT THE PROPER BOOT/ 


,69% 


3; TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 


68% 
<CRLF>/ ACTION TOOK PLACE. OPERATING 


,71$ 
70$ 
<CRLF>/ 0-3 


.73% 
72 


23 TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 
SELECTS PROGRAMMED BOOT, 


2s TYPE ASCIZ STRING 
;GET OVER THE ASCI2Z 


$ 
<CRLF >/ 10-13° SELECTS SANITY BOOT, 


astKB 
75$ 


e 


;FLUSH KEYBOARD 
23 TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 


74$ 
<CRLF>/ENTER BOOT CODE: / 


(SP), LINMBR 
(SP) +,RO 
#177764 ,RO 
2% 


.77% 


:GET OCTAL INPUT 
; SAVE VALUE 
; AND A COPY 
318 11 A VALID CODE? 
;1f YES, GO ON. 
ii TYPE ASC12 Patt. 
OVER THE ASCI]Z 


va 


CODES ARE:/ 


RECEIVERS 0-3/ 


RECEIVERS 0-3/<CRLF> 


76% ;GET 
<CRLF>/ILLEGAL CODE; MUST BE 0-3 OR 10-13/<CRLF> 


1$ 


#2$,SLPERR 
PC, SE TMNT 

#MICE ,@ACR 
#MLEN*MDSD ,QMTC 


;GO BACK FOR ANOTHER 
;SET UP FOR ERROR LOOP 


;INIT, THEN SETUP MAINT. 


SELECT MIC 
;SET PROPER MODE. 


MODE 


FOLLOWED BY (CR),/ 


SEQ 0090 


er 


MAINDEC-11-CRIIA-B 
CRIIAB.P11 


2739 


025656 


025750 


025752 


026042 


026046 


026154 
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013700 


024754 
024750 
000010 
000010 


022002 
000004 


024730 
900010 


000000 
022002 
000001 


000001 
000010 


176704 


023526 
025476 


000002 
022002 
000005 


176634 
176630 
176624 
176620 


000010 
176606 
000006 
176572 


023526 
025476 


MACY11 30A(1052) 
224 


024754 


177014 


001124 


024750 


176752 
176750 
176742 


176720 
001200 
176704 
001126 


176656 
176654 
176646 


176606 
001200 
176572 
001126 


18-JUN-79 
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MAINTENANCE-MODE SELF-BOOT TEST 


LINMBR ,RO :GET CODE 
RO,DISPLY [MAKE COPY 
#10,LINMBR 

#10.R0 ;MASK OUT TYPE BIT 


RO MAKE WORD INDEX 
PGBTAB(RO) ,R1 GET SELECTED BIT 
R1 ; INVERT TO CONFIGURE MASKS. 


WIMSKE ,@ACR :SELECT IMASK REG. 
R1,@1MSK +h ALL MASKS EXCEPT ONE. 
R1,$TMPO TMPO 1S MASK VALUE 
PoBTAR HOD scopai- ;BOOT ENABLE 
SIDNUM,R1 ;GET SELF-1D. 


R1 :MAKE WORD INDEX 
#10, DISPLY ;WHAT TYPE OF BOOT? 
5$ BRANCH IF ST 


:d0 ona pre BOOT: 


#PGTEE ,@ACR ;SELECT PGTE REGISTER. 
PGBTAB(R1) ,aPGTE ;ENABLE BOOT TO SELF. 
#G0.aPGCS INITIATE BOOT SEQUENCE. 

WV Re ; STALL 

WEXCE ,@ACR SELECT EXC 

EXC, $TMPI GET EXC INTO STMP1 
#PGFE,@ACR SELECT PGF 

aPGF,SBDDAT = ;GET IT 

+44 :NO BOOT OCCURRED 

PC ,DMPREG 

1$ ;TRY SOME MORE? 


;D0 SANITY-TIMER aatte (AND HALT): 
5$: MOV STTEE,@ 


6$: 


ACR ;SELECT ST TRANSMIT ENABLES 
STBTAB(RI). aSTTE ;SET TO XMIT TO SELF 
Selene ,ASTCS ;ENABLE CLOCK AND HALT 

R 


@ACR 7 STALL 
@ACR 
@ACR 
@ACR 
R2 
6% 
WEXCE ,@ACR SELECT EXC 
@EXC ,STMP1 :GET IT 
#STFE,@ACR SELECT STF 
asTf. $BDDAT sSELECT STF 
os :NO BOOT (OR EVEN HALT) OCCURRED 
PC, DMPREG 
1$ TRY FOR ANOTHER? 


SEQ 0091 


AINDEC-11-CR] 
AB.P11 


to's 
shalt 


cr 


026160 


(1) 026250 
(1) 026304 
2767 026304 


th ty 026414 
2785 026416 
786 


(1) 026436 


026506 
026506 


026510 
026514 


ooo 
WFwunNn—Oww~ 


1A-B 
18-JUN-79 


oooooo 
& 


scss 


100333 
104412 


000423 
000642 


013700 
006300 


MACYI1 
16:26 


024634 
000340 
023450 
026714 
000340 


000001 


026252 


001124 
000005 
176414 


023526 


176354 


023526 


152530 


024750 
000003 


026440 


024750 


30A(1052) 


177776 


176534 
176532 


176510 
176506 


001126 


176330 
176326 


18-JUN-79 
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MULTIPROCESSOR BOOT TEST 


» SBTTL 


MULTIPROCESSOR BOOT TEST 


sALLOWS OPERATOR TO INITIATE BOOTS TO OTHER CPU'S. 
71F THE PROGRAM IN THE BOOTSTRAP ROM SETS THE DIPII-A 
; INTERRUPT ENABLE BIT, THIS TEST SHOULD BE STARTED IN EAC 


: CPU. 


MPDIBT: 
MPDBT1: 


118: 


12$: 


33678: 
66$: 


SCOPE 
R 


BR 


THE BOOTED CPU CAN THEN BE INTERRUPTED TO REPORT THE FACT. 


PC,GETSIO ;GET SELF=10 

#PR7,PSW ;LOCK OUT INTERRUPTS 

PC ,CLEARX INIT THE INTERFACE & FLAGS 
#MPDINT @lilv SET UP I1IST_VECTOR 
#PR7,@11IL ;SET TO PRI 7 ON INTERRUPT 
#PGCSE ,@ACR SELECT PGCS REGISTER 

#1E,aPGCS ;SET INTR ENB TO CATCH ERRORS 
#STACK,SP ;SETUP STACK POINTER 

PSwW ;ALLOW INTERRUPTS 

asiKB ;FLUSH KBD BUFFER OF OLD STUFF 
,65$ +3 TYPE ASCIZ STRING 


64% 3;GET OVER THE ASCIZ 
<CRLF>/ENTER # OF CPU TO BOOT: / 


$GDDAT EXPECT PGF AND STF TO BE CLEAR 
#PGFE,@ACR ;SELECT PGF REGISTER 
aPGF ,SBDDAT ;GET PGF AND TEST IT 
118 70K If 0 (WE SHOULDN'T SEE FLAGS HERE) 
+44 ERROR -- PGF FLAGS PRESENT BUT NO BOOTING 
PC ,DMPREG 
#PGFE,@ACR ;SELECT PGF AGAIN 
#7417, aPGF ;CLEAR THE FLAGS 
#STFE,@ACR ;SELECT STF REGISTER 
aSTF ,SBDDAT :GET STF AND TEST IT 
12$ ;0K IF 0 
+44 ERROR =~ STF FLAGS PRESENT 
PC ,DMPREG 
WSTFE,@ACR ;SELECT STF AGAIN 
#7417,aSTF ;CLEAR THE FLAGS 
asTKs ;LOOK FOR KBD INPUT 
10$ ;LOOP BACK IF NONE. 
;GET OCTAL INPUT WHEN PRESENT 
(SP) ,DISPLY ;SAVE THE # OF CPU TO BE BOOTED 
(SP)+,#3 sSEE IF IT'S LEGAL (0-3) 
2$ ;BR IF YES - IF NOT, SAY SO 
,67$ ii TYPE ASC1Z STRING 


66% ;GET OVER THE ASCI2Z 
<CRLF>/ILLEGAL CODE; MUST BE IN RANGE 0-3/<CRLF> 


1$ ;G0 ASK FOR IT AGAIN 


COME HERE ON VALID INPUT FROM KEYBOARD. 


2$: 


MOV 
ASL 


DISPLY,RO ;GET CPU SELECT CODE 
RO MAKE IT A WORD INDEX 


SEQ 0092 


te -11-CRIIA-B 
CRI P11 18-JUN-79 14:24 


1A8.P 


026516 


026642 
026700 


026710 


026714 


027040 
027046 


027070 


012777 


000416 
013746 
104403 

001 
000137 


1411 


MACY11 30A(1052) 


090000 


000004 
176160 


176134 


024750 
000000 
021772 


000001 
026644 


024750 

000 
026214 
001100 


176000 


023526 


001126 


023526 
000007 
000017 


000006 
001124 
175652 


176004 
001126 


175672 
175670 


175656 
001126 


18-JUN-79 
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MULTIPROCESSOR BOOT TEST 


37698: 
68$: 


#PGTEE ,@ACR 
#60, 


DISPLY,RO 
RO 
#PGTEE,@ACR 


PGITAB(RO) ,@PGTE 


#G0,aPGCS 
9$ 


PGBTAB(RO) ,a@PGTE 
aPccs 


SEQ 0095 


;SELECT PG XMIT — REGISTER 
cha tee CPU TO B00 


THE BOOT 
+ INITIALIZE OUTER ao FOR STALL 
;ZERO THE INNER COUNTER 

:STALL TO ALLOW BOOTING TO OCCUR 

[AND INIT TO FINISH ON TARGET CPU. 
TEACH "TST @ACR'’ SHOULD BURN UP AT 
;LEAST 2 MICROSECONDS 

:TO ALLOW AT LEAST 4 SECONDS OF STALL. 


;BUMP INNER COUNTER. 
;LOOP ‘TIL IT GOES TO ZERO. 
;BUMP OUTER COUNTER 
;LOOP "TIL IT COUNTS TO ZERO. 
;GET TARGET CPU # AGAIN 
MAKE WORD INDEX 
;SELECT PGTE AGAIN 
;SELECT CPU TO BE INTERRUPTED 

;SEND THE INTERRUPT 
2a TYPE ASCIZ STRING 

;GET OVER THE ASCIZ 


68% 
<CRLF>/BOOT & INTR SENT TO CPU # / 


DISPLY,-(SP) 


1,0 
1$ 


;COME HERE ON INTERRUPT 


MPDINT: 


1$: 


23: 


MOV 
MOV 


#STACK SP 
WEXCE ,@ACR 


SGDDAT 

@EXC ,SBDDAT 
1$ 

+44 

PC ,DMPREG 
WEXCE ,@ACR 
#7417, aEXC 
#OCFE,@ACR 
a0CF ,SBDDAT 
SBDDAT ,SGDDAT 


#17,$GDDAT 
epee mentee 


+44 

PC ,DMPREG 
#WOCFE,@ACR 
#17,a0CF 
#STFE,@ACR 
SGDDAT 

OSTF ,SBDDAT 
3$ 

+44 





;PRINT THE CPU. 


:GO FOR MORE. 


REESTABLISH STACK, ASSUMING BOOT CHANGED IT. 
SELECT EXC (EXCEPTIONS) REGISTER 

sEXPECT NO UIF OR RTE FLAGS. 

;GET AND TEST EXC 

;0K, BRANCH IF 0. 

TERROR - EXC IS NONZERO. 


;SELECT EXC AGAIN 
;CLEAR THE FLAGS 
boi at REGISTER. 


; T 

TEXPECT NO DCF FLAGS, BUT BRKS OK. 
;CHECK THE DATA 

;BRANCH IF OK 

ERROR = DCF FLAGS NONZERO 


;SELECT DCF AGAIN 
;CLEAR THE FLAGS. 


>SELECT SANITY-TIMER FLAGS REGISTER 
EXPECT NO ST FLAGS 

;GET AND TEST STF CONTENTS 

;BR IF ZERO 

ERROR -- STF 1S NOT ZERO 


eT 


0 8 
MAINDEC-11-CRIIA-B wet thy 3S0A(1052) 18-JUN-79 14:32 PAGE 66-2 


CRIIAB.P11 18-JUN-79 MULTIPROCESSOR BOOT TEST . SEQ 0094 
2849 027072 004737 023526 JSR PC ,OMPREG 
2850 027076 012777 000006 175626 MOV WSTFE,@ACR ;SELECT STF AGAIN 
3944 027104 012777 007417 175624 MOV #7417, aSTF ;CLEAR ALL STF FLAGS 
2853 027112 005037 001124 3$: CLR SGDDAT EXPECT NO FLAGS IN PGTE (BOOTING SHOULD CLEAR) 
2854 027116 012777 000000 175606 MOV #PGTEE ,@ACR SELECT PGTE REGISTER 
2855 027124 017737 175606 001126 MOV @PGTE ,SBDDAT ;GET AND TEST PGTE 
2856 027132 001403 BEQ 4$ ;BR IF 0 
2857 027134 104044 ERROR +44 ERROR -- PGTE NOT ZERO 
sees 027136 004737 023526 JSR PC ,DMPREG 
2860 027142 012777 000002 175562 48: MOV WSTTEE ,@ACR ;SELECT STTE REGISTER 
2861 027150 017737 175562 001126 MOV @STTE,SBODAT ;GET STTE AND TEST FOR ZERO 
2862 027156 001405 BEQ 5% ;OK OF ZERO 
2863 027160 104044 ERROR +44 ERROR - STTE NOT ZERO 
sees 027162 004737 023526 JSR PC ,DMPREG 
2866 027166 012777 000003 175536 5%: MOV WSTCSE ,@ACR SELECT STCS REGISTER 
2867 027174 017737 175536 001126 MOV @aSTCS,$BDDAT ;GET STCS AND TEST FOR 0 
2868 027202 001403 BEQ 6$ ;OK IF ZERO 
2869 027204 104044 ERROR +44 ERROR - STCS NOT ZERO 
sony 027206 004737 023526 JSR PC ,.DMPREG 
2872 027212 012737 004014 001124 68: MOV #IP+1E+PRDY,SGDDA ;EXPECT BITS IN PGCS 
2873 027220 013700 024730 MOV S1DNUM,RO GET SELF-1D 
2874 027224 006300 ASL RO ;MAKE WORD INDEX 
2875 027226 056037 021762 001124 BIS SIDTAB(RO),SGDDAT ; INSERT SELF-ID INTO EXPECTED DATA 
2876 027234 012777 000001 175470 MOV #PGCSE ,@ACR ;SELECT PGCS REGISTER 
2877 027242 017737 175470 001126 MOV aPGCS,$BDDAT :GET PGCS 
2878 027250 023737 001126 001124 CMP SBDDAT,SGDDAT ;CHECK THE RESULT 
2879 027256 001403 BEQ 7$ ;BRANCH IF OK 
2880 027260 104044 ERROR +44 ERROR -- PGCS INCORRECT 
cee 027262 004737 023526 JSR PC ,DMPREG 
2883 027266 012777 000001 175436 /7$: MOV #PGCSE ,@ACR SELECT PGCS REGISTER 
2884 027274 012777 100000 175434 MOV #100000,aPGCS ;CLEAR ERR AND IE 
2885 027302 012777 000005 175422 MOV #PGFE ,@ACR SELECT PGF REGISTER 
2886 027310 017737 175422 024750 MOV aPGF ,DISPLY ;GET PGF 
2887 027316 005037 001126 CLR SBDDAT 
2888 027322 005037 001124 CLR SGDDAT 
2889 027326 113737 024751 001124 MOVB DISPLY*1,$GDDAT ;GET PG BOOT FLAGS 
2890 027334. 113737 024750 001126 MOVB DISPLY,SBDDAT  ;GET PG INTR FLAGS 
2891 027342 023737 001126 001124 CMP SBDDAT,SGDDAT ;PG BOOT & INTR FLAGS SHOULD BE EQUAL 
2892 027350 001403 BEQ 8$ ;BRANCH IF THEY ARE. 
2893 027352 104044 ERROR +44 ERROR -- PG BOOT & INTR FLAGS NOT SAME 
$p08 027354 004737 023526 JSR PC ,DMPREG 
2896 027360 013700 001124 8$: MOV $GDDAT,RO ;GET BOOT FLAGS 
2897 027364 001004 BNE 9$ ;BRANCH IF NONZERO 
2898 027366 104044 ERROR +44 ERROR -- NO BOOT FLAGS 
2899 027370 004737 023526 JSR PC ,DMPREG 
3454 027374 000427 BR 12% ;CAN' REPORT BOOT 
2902 027376 005046 9$: CLR -(SP) ;CLEAR COUNTER 
2903 027400 000241 10$: CLC CLEAR C-BIT IN PREP. FOR ROTATE 


2904 027402 006000 ROR RO SHIFT FLAGS INTO C-BIT 


eoar—r——————————————————————————————————  — C eé? = agxxKxRRaaaeeseSaS=E=Soooooooooeeeeeeeee—e eee ee r-Or oOO — 
- —_—y 





027416 
027444 


027474 
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103402 
005216 
000773 


104401 
000412 
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MULTIPROCESSOR BOOT TEST 


11$ sFOUND iT IF C SET 
(SP) :1F NOT, GO AGAIN 
10% 

,605% 3; TYPE ASCIZ STRING 


64% 3;GET OVER THE ASCIZ 
<CRLF>/BOOTED FROM CPU &/ 


sOUTPUT THE CPU # 


1,0 

- SCRLF AND A NEWLINE 
#WPGFE,@ACR s SELECT PGF 
#7417, aPGF 7 CLEAR FLAGS 
MSTACK, SP 

MPDBT1 


11A-8 MACY11 30A(1052) 18-JUN-79 14:32 PAGE 67 
18-JUN-79 14:24 SANITY-TIMER TIMEOUT HALT/FREEZE TEST SEQ 0096 


-SBTTL SANITY-TIMER TIMEOUT HALT/FREEZE TEST 
ALLOWS OPERATOR TO START THE SANITY TIMER AND VERIFY IF HALT OCCURS. 


027500 000004 STHLT: SCOPE 

027502 004737 024634 JSR PC,GETSID 3GET SELF-1D 

027506 004737 023450 23: JSR PC ,CLEARX INIT 

027512 005777 151430 TST astKB sFLUSH KEYBOARD OF OLD STUFF. 

027516 104401 027524 TYPE 65% 3; TYPE ASCIZ STRING 

027522 000434 BR 64% 3;GET OVER THE ASCIZ 

027614 Lies: -ASCIZ <CRLF>/TYPE ANY CHARACTER WHEN READY TO INITIATE HAL! ACTION; / 
643: 

027614 104401 027622 TYPE ,67$ 3; TYPE ASCIZ STRING 

027620 000425 BR 66% 3;GET OVER THE ASCIZ 
32678: .ASCIZ <CRLF># THEN VERIFY THAT CPU IS HALTED/FROZEN.#@ 

027674 66$: 

027674 104410 ROCHR 3GET INPUT 

027676 012706 001100 MOV @STACK,SP 

027702 012777 000003 175022 MOV MSTCSE,@ACR sSELECT STCS REGISTER 

027710 012777 900005 175020 MOV MLKE*ENB,@STCS ;SET LOCK-ENABLE AND START CLOCK 

027716 005000 CLR RO s INIT STALL COUNTER 

027720 005777 175006 1$: TST @ACR 

027724 005777 175002 TST @ACR 

027730 005777 174776 TST @ACR 

027734 005200 INC RO s STALL 

027736 001370 BNE 1$ ; LOOP 


ERROR If WE FALL THROUGH -- NO HALT OCCURRED 
; OR MAYBE OPERATOR JUST HIT "CONTINUE" 


027740 104044 ERROR +44 
027742 004737 023526 JSR PC ,DMPREG 
027746 000657 BR 2$ 





G 
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RIIAB.F11 18-JUN-79 14:24 MANUAL CONTROL-PANEL TEST SEQ 0097 


MACY11 wo | 
2944 ~-SBTTL MANUAL CONTROL-PANEL TEST a 

































2946 TEST MANUAL CONTROL PANEL (INHIBIT INPUTS) VIA DIALOG. 
sete sFOR TIME BEING, WE JUST PRINT OUT DCF REGISTER WHEN IT CHANGES. 
2949 027750 000004 MCP: SCOPE 
2950 027752 004737 023450 JSR PC, CLEARX INIT THE INTERFACE 
2951 027756 004737 024634 JSR PC,GETSID 4h SELF-1D 
2952 027762 104401 027770 TYPE ,65$ ;TYPE ASCIZ STRING 
(1) 027766 000415 BR 64% :GET OVER THE a 
(1) 33658: .ASCIZ <CRLFO>/INITIAL vii CONTENTS = 
(1) 030022 64$: 


2953 030022 012777 000007 174702 MOV #OCFE,@ACR ;SELECT DCF 
2954 030030 017737 174702 024750 MOV aD0CF ,DISPLY 3GET INITIAL CONTENTS OF DCF 
2955 030036 013746 024750 MOV DISPLY,=-(SP) 
344] 030042 104402 TYPOC sTYPE IT OUT. 
2958 030044 012777 000007 174660 18: MOV #OCFE,@ACR sSELECT OCF 
2959 030052 017737 174660 001124 MOV adCF ,$GDDAT 3GET IT 
2960 030060 023737 901124 024750 CMP $GDDAT,DISPLY sCOMPARE WITH OLD VALUE 
44) 030066 001766 BEQ 1$ 3; JUST LOOK AGAIN IF EQUAL 
2963 030070 104401 030076 TYPE 67% si; TYPE ASCIZ STRING 

(1) 030074 000411 BR 66$ 3;GET OVER THE ASCIZ 

(1) 32678: .ASCIZ <CRLF>/DCF CHANGED TO / 

(1) 030120 66$: 
2964 030120 013746 001124 MOV SGDDAT,-(SP) 
2965 030124 104402 TYPOC sPRINT IT 
2966 030126 012777 000007 174576 MOV MOCFE AACR sSELECT DCF 
2967 030134 012777 000017 174574 MOV #17,aD0CF sCLEAR FLAGS 
2968 030142 013737 001124 024750 MOV SGDDAT,.DISPLY sMAKE NEW OLD 
2969 cteize 042737 000017 024750 BIC 1 est 

i56 2 
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LOOPS 
~SBTTL 


SEQ 0098 
SCOPE LOOPS 


ROUTINES FOR CYCLING THE LOGIC REPEATEDLY. 
SLOOPS: SCOPE 
JSR 


1$: 


SLMSG: 


-ASCI1 


ASCII 


ASCH] 


ASCII 


ASCII 


PC,GETSID GET SELF-1D INTO SIDNUM 

#-] sFIRST TIME SINCE LOADING? 

1$ :1F YES, PRINT EXPLANATIONS. 

SLOOP 1 7 1f NO, JUST GO ASK FOR WHAT TO DO. 
asiKB ;FLUSH KEYBOARD OF STUFF HANGING AROUND. 
» SLMSG TYPE MESSAGE. 

SLOOP 1 ;NOW GO SEE WHAT TO DO 


<CRLF>/THE SCOPE LOOPS ARE USED FOR CYCLING THE/ 


/ LOGIC WHILE MONITORING WITH AN/<200>/ OSCILLOSCOPE ./ 


<CRLE>/SELECT THE LOOP FROM THE FOLLOWING MENU BY TYPING/ 


<200>/ ITS OCTAL CODE FOLLOWED BY CARRIAGE RETURN./ 


<CRLE>/THE FOLLOWING OPERATIONS AND THEIR RESPECTIVE CODES ARE AVAILABLE 


——- — 


MAINDEC=11-CRIJA-B 
CRIIAB.P11 


2991 


2993 


2994 


2995 


2996 


030576 


lelolelelelelefojojolojelolojl—j—) 
aE EEE AAAI tt 
ee ee et tt 
Rafa Ro fy ee ee a ss es ss 
Nm ONO O UUW F WN — OO 
FOONMFSAONMONFS OONWUS 


031232 


046111 
0 


031232 
005777 


041101 
020200 


020104 
047111 


020040 


020124 


020040 
040522 


020124 
020040 


051511 
020040 


044511 
047524 


2 
100056 


147710 


042514 
030040 


031040 
020061 


052502 
020062 


052502 
020063 


046114 
023524 


020064 


052123 
043440 


SLOOP 1: 


ASCII 


ASCII 


ASCII 


ASCII 


-ASCI1 


-ASCIZ 


TS] 
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18-JUN-79 14:24 SCOPE LOOPS 


<CRLF><CRLF>/ 0 GENERATE BOOT PULSES (AT J2 PIN B AND J3 PIN 2)/ 


<CRLFD>/ 


<CRLF>/ 


<CRLF >/ 


<CRLF>/ 


TRANSMIT PG INTERRUPTS TO SELF ON IIST BUS/ 


TRANSMIT ST INTERRUPTS TO SELF ON JIST BUS/ 


TRANSMIT PG INTERRUPTS TO ALL IIST"S/ 


TRANSMIT PG BOOTS TO ALL IIST'S/ 


<CRLF><CRLF>/10 GET OUT OF THE LOOP, TYPE ANY CHARACTER. /<CRLF > 


astKe 


sFLUSH KEYBOARD 





SEQ 0099 


MAINDEC-11-CR! 
CRIIAB.P11 
3000 031236 

(1) 031242 

(1) 

(1) 031312 
3001 031312 
3002 031314 
3093 031316 
3004 031322 
3005 031324 

(1) 031330 

(1) 

(1) 031376 
3006 031376 
3007 
3008 031400 
3009 031402 
3010 
3011 
3012 031406 
3013 031410 
3014 031412 
3015 031414 
3016 031416 
3017 
3018 
3019 
3020 
3021 031420 
3022 031424 
3023 031432 
3024 031440 
3025 
3026 031442 
3027 031444 
3028 031446 
3029 031452 
3030 031456 
3031 031460 
3032 031466 
3033 031472 
3034 031476 
3035 031500 
3036 031506 
3037 031514 
3038 031522 
3039 031526 
3040 031532 
3041 031534 
3042 031536 
3043 031540 
3044 031542 
3045 031546 
3046 031550 
3047 
3048 
3049 


1A-B 
18-JUN-79 


104401 
000425 


104412 


000422 
000715 
006300 
000170 


031420 
032040 


004737 


005000 
010001 


MACY11 30A(1052) 
SC 


14:24 
071244 


000004 
031332 


031406 


023450 
000015 
000002 


177770 
022002 


000004 
173244 
024730 


000000 


024732 


147376 
031232 


3300 
3276 


_— 
~SG 


BR 
33678: .ASCIZ 


;DISPATCH TABLE 

SLDISP: SCBOOT 
SCPISF 
SCSTSF 
SCPIAL 
SCPBAL 


J. 8 
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OPE LOOPS 


SEQ 0100 


,65% ar ASCIZ STRING 
64% ;GET OVER THE ASCIZ 
<CRLF>/ENTER CODE FOR DESIRED LOOP (0-4): / 


,67% one ASCIZ STRING 
66$ GET OVER THE ASCIZ 
/ILLEGAL CODE; MUST BE IN RANGE 0-4/ 


SLOOP 1 ;GO ASK AGAIN. 


RO ;MAKE WORD INDEX. 
@SLDISP(RO) ; JUMP VIA DISPATCH TABLE. 


;0 BOOT PULSES 

31 PG INTERRUPTS TO SELF 
32 ST INTERRUPTS TO SELF 
33 PG INTERRUPTS TO ALL 
74 PG BOOTS TO ALL 


;BOOT PULSES (ASSUMES BOOT CABLE 1S DISCONNECTED) 


SCBOOT: JSR 
M 


2$: TST 


PC,CLEARX s INIT THE INTERFACE 

#MTCE ,@ACR sSELECT MTC 

#MLEN,aMTC ;SET MAINT. LOOPBACK 

RO sRO CYCLES THE MASKS SO EACH RELEIVER OPERATES IN TURN. 
RO,R1 ;GET MASK CYCLE CONTROL 

R1 :MAKE WORD INDEX 

#177770,R1 ;ZAP JUNK 

PGBTAB(R1),R2 ;GET BIT TO ENABLE 

R2 ;SET ALL OTHER MASKS 
#IMSKE,@ACR ;SELECT IMSK REGISTER 

R2,01MSK :LOAD MASKS, LEAVING ONE CLEAR 
SIDNUM,R1 ;GET SELF-1D 

R1 sMAKE WORD INDEX 

#PGTEE,@ACR sSELECT PGTE 

PGBTAB(R1),aPGTE ;SET TO XMIT TO SELF 
#60,aPG.$ : TRANSMIT 

#40,R1 s INIT STALL COUNTER 

ACR,R2 :GET ACR ADDRESS 

oe" STALL 

R 


WHEN DONE, CYfLE MASK 
astKs :SEE IF KBD ACTIVE 

1$ :1F NO, KEEP LOOPING 

SLOOP 1 cf YES, EXIT LOOP 


SEND REAL SANITY*TIMER INTERRUPTS TO SELF: 


;GET INPUT 
(SP)+,RO GET VALUE 
RO, #4 SEE IF LEGAL 
1$ 71F O-4, THEN OK, GO DO IT. 


MAINDEC- 


CRIIAB.P 


-CRI 


031646 
031650 
031654 


031656 
031660 


031662 
031664 


032010 


004737 


000742 
012701 


005301 
001376 
000737 


000000 
004737 


000732 


017701 


042701 


023450 
024736 


000002 
021772 
000011 
023420 
147324 
031232 


000003 
000010 


900040 


023450 
000000 
031662 
023506 
177774 


000000 


147176 


031232 
000001 
004000 


172726 


177770 


1A-B MACY11 a 
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000002 
000002 


000002 


173034 


173006 
173004 


2750 
2746 


— 
“SN 


rake JUN-79 
E LOOPS 


SCSTSF: JSR 
1$: MOV 


2$: TSTB 


3$: MOV 
4$: DEC 


;GENERAL TRANSMIT ROUTINE : 
KMITS: .WORD 0 


SCPXMT: JSR 
M 


2$: TSTB 


3$: MOV 


K 8 
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PC,CLEARX 
ADR ,RO 
-(RO),R1 


RI 

WSTTEE,-(RO) 
STITAB(RI),2(R0)- 
#TMO+ENB,2(RO) 


#10000. ,81 
astKs 
+6 


SLOOP 1 
#STCSE, (RO) 
#TMO,2(RO) 
3$ 


R1 
2$ 
SCSTSF 
#40,R1 


PC, CLEARX 
#PGTEE ,@ACR 
XMITS,RO 
PC, PARCAL 


R1 
#177774,R1 
R1 


#PGTEE,@ACR 
XMITS,aPGTE 
R1,aPGCS 
#20,R2 
astKs 


3$ 

SLOOP 1 
#PGCSE ,@ACR 
gti ite 


R2 
2$ 
SCPXMT 


PG INTERRUPTS TO SELF: 


SCPISF: MOV 
SWA 
ASL 


@ACR,RI 
RI 


R| 
#177770,R1 


; INIT THE INTERFACE 
;GET ADR ADDRESS 
;BUMP ADDRESS AND GET SELF-1D 
MAKE WORD INDEX 
;SELECT STTE REGISTER 
;SET ENABLE TO XMIT TO SEL 


;CLEAR TMO, ENABLE CLOCK FOR 1 COUNT. 


:SET DELAY COUNTER 


KEYBOARD ACTIVE? 

;1f NOT, SKIP 

c1F YES, EXIT LOOP 
:SELECT STCS 
:1MO SET? 
;SKIP IF YES 
s1F NOT, JUST WAIT 
;BUT NOT TOO LONG 

;NO TIMEOUT -- GO TO INIT 


:SET TO STALL FOR XMIT 
7 STALL 
;D0 11 AGAIN 


TRANSMIT 


; INIT THE INTERFACE 
;SELECT THE ACR 

:GET BITS TO TRANSMIT 
;CALCULATE PARITY 
;POSITION PARITY BIT 


PARITY & GO 
>SELECT PGTE 
;LOAD XMITS 


; SEND 

;LOOP COUNTER IN CASE OF HANG 
KEYBOARD ACTIVE? 

:CONTINUE OF NOT 

sEX1T LOOP IF YES 


;READY? 
s1F YES, DO AGAIN 
iif NOT, COUNT DOWN 


LOOP 
NO PRDY 


;GET SELF=1D 


SEQ 0101 


MAINDEC-11-CRIIA-B 
CRIIAB.P11 


3106 


WANA W ww 
et ot at ot 


032014 
032022 


032026 
032034 


032040 
032046 


016137 
000137 


012737 
000137 


012737 
000137 


MACY11 30A(1052) 18-JUN-79 
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021772 
031664 


000017 
031664 


007400 
031664 


031662 


031662 


031662 


Ls 
14:32 PAGE 69-4 


MOV PGITAB(R1) ,XMITS 
JMP SCPXMT 
3PG INTERRUPTS TO ALL: 
SCPIAL: MOV #17,XM11S 
JMP SCPXMT 
3PG BOOTS TO ALL: 
SCPBAL: MOV #7400,XM1TS 
JMP SCPXMT 


;GET Bilt TO TRANSMIT 
;GO DO IT 


;SET ALL INTR XMIT ENABLES 


SET ALL BOOT XMIT ENABLE 
;GO TO MAIN LOOP 


SEQ 0102 


MAINDEC-11-CRIIA-B 
CRIIAB.P11 


wwe 
ee ee el et a a ee a ee ee ee ed ad ed ae ed ee ee ed a ee et et ed a ee el el eed ed ed ed ee ee 


ee ke I) me se FI) kk et et st at oat ot ot ot ot of 


032052 


032172 


18-JUN-79 


000004 


000240 
000137 
003562 
377 
015 


050040 
000043 


104407 


MACY11 30A(1052) 


14:24 


001102 


36 
100000 


032157 
001236 


032154 
000042 


377 
042412 
051501 


001236 


000 
042116 
020123 


L 
18-JUN-79 14:32 PAGE 70 
END OF PASS ROUTINE 


-SBTTL END OF PASS ROUTINE 


s,eeteerererererrrerererrrereterereeteerereeeeeeeteKeRetereeeneeee 


;*INCREMENT THE PASS NUMBER ($PASS) 

s* INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
s*TYPE “END PASS @XXXXX"" (WHERE XXXXX 1S A DECIMAL NUMBER) 
:*1F THERES A MONITOR GO TO IT 

;*1F THERE ISN'T JUMP TO TST1 


SEOP: 
SCOPE 
CLR STSTNM 3;ZERO THE TEST NUMBER 
CLR STIMES :;ZERO THE NUMBER OF ITERATIONS 
INC SPASS >; INCREMENT THE PASS NUMBER 
BIC #100000, $PASS 3;DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ 3; LOOP? 
SEOPCT: .WORD 1 
BGT $SDOAGN 77 YES 
MOV (PC)+,a(PC)+ ;:RESTORE COUNTER 
SENDCT: . WORD 1 
SEOPCT 
TYPE , SENDMG s TYPE “‘END PASS #"’ 
MOV SPASS,-(SP) «SAVE SPASS FOR TYPEOUT 
TYPDS ::G0 TYPE--DECIMAL ASCI1 WITH SIGN 
TYPE » SENULL 3; TYPE A NULL CHARACTER 
$GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 
BEQ SDOAGN :;BRANCH IF NO MONITOR 
RESET :;CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 3:60 TO MONITOR 
NOP 3;SAVE ROOM 
NOP 37 FOR 
NOP 3;ACT11 
SDOAGN: 
JMP a(Pc)+ > ;RETURN 
SRTNAD: .WORD TST1 
SENULL: .BYTE -1,-1,0 peas CHARACTER STRING 


SENDMG: “ASCIZ <15><12>/END PASS # 


-SBTTL SCOPE HANDLER ROUTINE 


peeeeeerereerreerttenttrreetererterereeeeteeeereeererenereeerese 
SSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 


*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
[*THE SWITCH OPTIONS ol te BY THIS ROUTINE ARE: 
i *SW14=1 LOOP ON TEST 


3*SwWil=1 INHIBIT ITERATIONS 
3*SW09=1 LOOP ON ERROR 

3 *CALL 

3@ SCOPE >; SCOPE=101 
SSCOPE: 


TEST FOR CHANGE IN SOFT=SWR 


CKSWR 
7:G0 TO ERROR ROUTINE JF RETURN pe LESS THAN 1002 


Oo 
orm 


ww 
ee ee ee ee ee ee ed ed a a i ed de el ed el ee el ed ed ed ee ed td ed ed ee ed ee ed ed ee ee ee — Zz 
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11 18-JUN-79 14:24 SCOPE HANDLER ROUTINE SEQ 0104 
s OTHERWISE CONTINUE 
032176 021627 001002 CMP (SP) ,#1002 s UNEXPECTED TRAP OR INTERRRUPT 
032202 101002 BHI 1$ SSARE TRAPPED HERE VIA IOT 
032204 000137 032446 JMP SERROR °:G0 PROCESS UNEXPECTED TRAP 
032210 032777 040000 146722 15: BIT #B1T14,aSwWR ;;LOOP ON PRESENT TEST? 
032216 001104 BNE SOVER “YES IF SW14=1 
sMMMAASTART OF CODE FOR THE XOR TESTERSMAAM 
032220 000416 SXTSTR: BR 6$ :71f RUNNING ON THE ‘"'XOR’’ TESTER CHANGE 
::THIS INSTRUCTION TO A “‘NOP’’ (NOP=240) 
032222 013746 000004 MOV QMERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
032226 012737 032246 000004 MOV #58, AWERRVEC : SEI FOR TIMEOUT 
032234 005737 177060 1ST a#177060 TIME OUT ON XOR? 
032240 012637 000004 MOV (SP)+,@WERRVEC ::RESTORE THE ERROR VECTOR 
032244 000453 BR $SVLAD :G0 TO THE NEXT TEST 
032246 022626 5$: CMP (SP)+,(SP)¢ SECLEAR THE STACK AFTER A TIME OUT 
032250 012637 000004 MOV (SP)+ ,a#ERRVEC + sRESTORE THE ERROR VECTOR 
032254 000413 BR 7% LOOP ON THE PRESENT TEST 
032256 6$:;MA4H#HEND OF cece FOR THE won TESTERMMAMM 
032256 105737 001103 2$: TSTB = SERFLG :HAS AN ERROR OCCURRED? 
032262 001421 BEQ 3$ :BR IF NO 
032264 123737 001115 001103 CMPB SERMAX,SERFLG MAX. ERRORS FOR THIS TEST OCCURRED? 
032272 101015 BHI § ::BR IF NO 
032274 032777 001000 146636 BIT #81109, aSwR ::LOOP ON ERROR? 
032302 001404 BEQ 4% 3;BR 1F NO 
032304 013737 001110 001106 /7$: MOV SLPERR,SLPADR :;SET LOOP ADDRESS TO LAST SCOPE 
032312 000446 BR SOVER 
032314 105037 001103 4$: CLRB SERFLG 3; ZERO THE ERROR FLAG 
032320 005037 001214 CLR STIMES :;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
032324 000415 BR 1$ s;ESCAPE TO THE NEXT TEST 
032326 032777 004000 146604 38: BIT #B1T11,aSWR +3 INHIBIT ITERATIONS? 
032334 001011 BNE 1$ ‘BR IF YES 
032336 005737 001236 TST SPASS 3 1F FIRST PASS OF PROGRAM 
032342 001406 BEQ 1$ INHIBIT ITERATIONS 
032344 005237 001104 INC SICNT SS INCREMENT ITERATION COUNT 
032359 023737 001214 001104 CMP STIMES,SICNT :;CHECK THE NUMBER OF ITERATIONS MADE 
032356 002024 BGE SOVER :;BR 1F MORE ITERATION REQUIRED 
032360 012737 000001 001104 18: MOV #1, $10NT :REINITIALIZE THE ITERATION COUNTER 
032366 013737 032444 001214 MOV SMXCNT,STIMES :;SET NUMBER OF ITERATIONS TO DO 
032374 105237 001102 $SVLAD: INCB $TSTNM ::COUNT TEST NUMBERS 
032400 113737 001102 001234 MOVB STSTNM,STESTIN :;SET TEST NUMBER IN APT MAILBOX 
032406 011637 001106 MOV (SP) ,SLPADR :;SAVE SCOPE LOOP ADDRESS 
032412 011637 001110 MOV (SP), SLPERR ::SAVE ERROR LOOP ADDRESS 
032416 005037 001216 CLR eo a ::CLEAR THE ESCAPE FROM ERROR ADDRESS 
032422 112737 000001 001115 MOVB #1,SERM s;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
032430 013777 001102 146504 $0OVER: MOV $TSTNM, SD ISPLAY s:DISPLAY TEST NUMBER 
032436 013716 001106 MOV SLPADR, (SP) 3s; FUDGE te ADDRESS 
032442 000002 RTI FIXES P 
032444 000001 SMXCNT: 1 3; MAX. a OF ITERATIONS 


-SBTTL ERROR HANDLER ROUTINE 


-eeweeererereretereerertrreeereeeeeeeereeeeeeeeeeeeee eee eee 
SSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
s*SAVE THE ERROR ! TEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
+ *AND GO TO SERRTYP ON ERROR 
> *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
>*SwW15=1 HALT ON ERROR 


8 9 

MAINDEC-11-CRIIA-B MACYI1 _—. 18-JUN-79 14:32 PAGE 70-2 

CRIIAB.P11 18-JUN-79 14:24 ERROR HANDLER ROUTINE SEQ 0105 
(1) 3*Sw13=1 INHIBIT ERROR TYPEOUTS 
(1\) >*Swl0=1 BELL ON ERROR 
(1) 7 *SwO9=1 LOOP ON ERROR 
(1) > *CALL 
it :* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 032446 SERROR: 
(1) 032446 104407 CKSWR 7; TEST FOR CHANGE IN SOFT-SWR 
(1) 032450 105237 001103 7$: INCB SERFLG 3;SET THE ERROR FLAG 
(1) 032454 001775 BEQ 7$ ;;DON'T LET THE FLAG GO TO ZERO 
(1) 032456 013777 001102 146456 MOV STSTNM,QDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 032464 032777 002000 146446 alt #B1T10,aSwR ;;BELL ON ERROR? 
(1) 032472 001402 BEQ 1$ 33;NO - SKIP 
(1) 032474 104401 001220 TYPE , SBELL ;:RING BELL 
(1) 032500 005237 001112 1$: INC SERTTL ;;COUNT THE NUMBER OF ERRORS 
(1) 032504 011637 001116 MOV (SP) , SERRPC 3;GET ADDRESS OF ERROR INSTRUCTION 
(1) 032510 162737 000002 001116 SUB #2, SERRPC 
(1) 032516 117737 146374 001114 MOVB' a@SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(1) 032524 032777 020000 146406 BIT #B1T13,aSWR 3;SKIP TYPEOUT IF SET 
(4) 032532 001055 BNE 208 3: SKIP TYPEOUTS 
(1) 032534 021627 001002 CMP (SP) ,#1002 sal RETURN PC LESS THAN 1002 
(1) 032540 401046 BHI 12$ ;ERROR IS ILLEGAL TRAP 
(1) ;;PROCESS UNEXPECTED TRAP OR INTERRUPT 
(1) 032542 016637 000004 001116 MOV 4(SP) ,SERRPC 3;GET PC AT TIME OF FALSE TRAP 
(1) 032550 162737 000002 001116 SUB #2, SERRPC ;;ADJUST PC 
(1) 032556 104401 032622 TYPE , 10% 7; TYPE HEADER 
(2) 032562 013746 001116 MOV SERRPC,-(SP) ;;SAVE SERRPC FOR TYPEOUT 
(2) 032566 104402 TYPOC 3:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 032570 104401 032630 TYPE 11% 
(1) 032574 162716 000004 SUB #4, (SP) 3:GET FALSE TRAP VECTOR ADDR 
(1) 032600 011637 001116 MOV (SP) ,SERRPC 
(2) 032604 013746 001116 MOV SERRPC,-(SP) 7;SAVE SERRPC FOR TYPEOUT - 
(2) 032610 104402 TYPOC 3:G0 TYPE--OCTAL ASCII(ALL DISITS) 
(1) 032612 104401 001225 TYPE - SCRLF 
(1) 032616 022626 CMP (SP)+,(SP)+ 7;POP FALSE TRAP VECTOR PC&ADDR 
(1) 032620 000422 BR 20% 
(1) 032622 050200 036503 000040 10$: -ASCIZ <200>"PC= ° 
(1) 032630 020040 047125 054105 118: -ASCIZ * UNEXPECTED TRAP TO ° 
(1) 032636 042520 052103 042105 
(1) 032644 052040 040522 020120 
(1) 032652 047524 000040 
(1) EVEN 
(1) 032656 12$: 
(1) 032656 004737 032770 JSR PC ,SERRTYP 3:G0 10 USER ERROR ROUTINE 
(1) 032662 104401 001225 TYPE - SCRLF 
(1) 032666 208: 
(1) 032666 122737 000001 001250 CMPB #WAPTENV,SENV fhe gi: IN APT MODE 
(1) 032674 001007 BNE 2$ O,SKIP APT ERROR REPORT 
(1) 032676 113737 001114 032710 MOVB SITEMB,21% Sef ITEM NUMBER AS ERROR NUMBER 
(1) 032706 004737 035732 JSR PC, SATY4 ;;REPORT FATAL ERROR TO APT 
(1) 032710 000 21$: -BYTE 0 
(1) 032711 000 BYTE 0 
(1) 032712 000777 228: BR 22% ;;APT ERROR LOOP 
(1) 032714 005777 146220 2$: TST aswrR ;;HALT ON ERROR 
(1) 032720 100002 BPL 3$ 7:SKIP IF CONTINUE 
(1) 032722 000000 HALT ;;HALT ON ERROR! 


ooo ee eee eee 
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18-JUN-79 14:24 ERROR HANDLER ROUTINE SEQ 0106 
2724 104407 CKSWR s TEST FOR CHANGE IN SOF T-SWR 
2726 032777 001000 146204 38: BIT #B1T09,aSwR : LOOP ON ERROR SWITCH SET? 
2734 001402 BEQ 4% BR IF NO 
2736 013716 001110 MOV SLPERR, (SP) +: FUDGE RETURN FOR LOOPING 
032742 005737 001216 4$: TST SESCAPE some FOR AN ESCAPE ADDRESS 
032746 001402 BEQ 5$ 3;BR IF NONE 
tafe, 013716 001216 $8 MOV SESCAPE, (SP) > FUDGE RETURN ADDRESS FOR ESCAPE 
032754 022737 032140 000042 CMP @SCNDAD ,a#42 3;ACT=11 AUTO-ACCEPT? 
032762 001001 BNE 4$ > :BRANCH IF NO 
032764 000000 HALT 77 YES 
032766 6$: 
32766 000002 RTI ; ;RETURN 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


peeeeeeeeeerenreeeeerereererereerererereteeeeeeeteerenererereee 
THIS ROUTINE USES THE "ITEM CONTROL BYTE’ (SITEMB) TG DETERMINE WHICH 
;*ERROR 1S TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE’ (SERRTB), 
> * AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


770 SERRTYP: 
770 494401 001225 TYPE , SCRLF 77 °'CARRIAGE RETURN’ & "LINE FEED" 
774 010046 MOV RO,-(SP) 7; SAVE RO 
776 005000 CLR RO s;PICKUP THE ITEM INDEX 
3000 153700 001114 BISB aaS1TEMB,RO 
33004 001004 BNE 1$ io lF ITEM PUMBER IS ZERO, JUST 
s TYPE THE PC OF THE ERROR 
033006 013746 001116 MOV SERRPC,-(SP) >: SAVE SERRPC FOR TYPEOUT 
> ERROR ADDRESS 

033012 104402 TYPOC +e TYPE--OCTAL ASCII(ALL DIGITS) 
033014 000445 BR 10$ 3GET OUT 
033016 005300 1$: DEC RO sADJUST THE INDEX SO THAT IT WILL 
033020 006300 ASL RO Si WORK FOR THE ERROR TABLE 
033022 006300 ASL RO 
033024 006300 ASL RO 
033026 062700 001354 ADD #SERRTB,RO 3;FORM TABLE POINTER 
033032 012037 033042 MOV (RO)+,2$ :;PICKUP ‘ERROR MESSAGE’ POINTER 
033036 001404 BEQ 3% ah TYPEOUT IF NO POINTER 
033040 104401 TYPE TYPE THE ‘‘ERROR MESSAGE" 
033042 000000 2$: WORD 0 «ERROR MESSAGE’ POINTER GOES HERE 
033044 104401 001225 TYPE , SCRLF 23 ""CARRIAGE RETURN'' & "LINE FEED" 
033050 012037 033060 3$: MOV (RO)+,4$ : PICKUP “DATA HEADER’ POINTER 
033054 001404 BEQ 5$ :SKIP TYPEOUT iF 0 
033056 104401 TYPE i IPE THE ‘DATA HEADER’ 

3060 000000 4$: WORD 0 ::'"DATA HEADER’ POINTER GOES HERE 
033062 104401 001225 TYPE »SCRLF a3 CARRIAGE RETURN’ & “LINE FEED" 
033066 010146 5$: MOV R1,-(SP) >: SAVE R1 
033070 012001 MOV (RO)+, R1 >;PICKUP "DATA TABLE'’ POINTER 
033072 001415 BEQ 9% :;BR IF NO DATA TO BE TYPED 
033074 012000 MOV (RO)+,RO :;PICKUP ‘DATA + pre POINTER 

3076 105720 6$: TSTB (RO)+ ¢sOCTAL™ OR ‘‘DECIMAL" 

100 001003 BNE 7$ sBR IF DECIMAL 

102. 013146 MOV a(R1)+,-(SP) >: SAVE a(R1)+ FOR TYPEOUT 

104 104402 TYPOC 33;G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
it 000402 - BR 8$ 


a RS 
—_—_ Oe Fl 
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033144 


033164 
033106 


“CRIIA-B 


013146 


000764 
012601 


033144 
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033140 


001225 
600 


000004 
000006 


000006 
003776 


033344 
177572 
100000 
172340 
000010 
077406 
000200 
177600 


033302 


000004 
035202 


177740 


000004 


od 9 
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ERROR MESSAGE TYPEQUT ROUTINE 


MOV a(R1)+,-(SP) 7;SAVE a(R1)+ FOR TYPEOUT 


TYPDS af TYPE=-DECIMAL ASCII ae SIGN 
8$: TST (R1) i1S He | ANOTHER NUMBER 
BEQ 9$ ::BR IF 
TYPE 118 TYPE 1W0(2)- SPACES 
BR 6$ ; LOOP 
9$: MOV (SP)+,R1 ; RESTORE R1 
10$: MOV (SP)+,RO ; RESTORE RO 
TYPE - SCRLF et RETURN’ & “LINE FEED" 
RTS PC 7 RETURN 
11$: -ASCIZ / / :;1wO(2) SPACES 


-EVEN 
-SBTTL ROUTINE TO SI7E MEMORY 


sp teereeererrerecerererrererereerereererteneeseeeereneneeeeneeeee 


>*CALL: 


~ JSR PC,S$SIZE 
RETURN 
S eSLSTAD WILL CONTAIN: 
ie WITH KT11 OPTION == LAST VIRTUAL ADDRESS OF THE LAST BANK 
:* WITHOUT KT11 OPTION -- LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 


7*SLSTBK WILL CONTAIN THE LAST BANK AS A SAF 
:*$KT11 1S THE MEMORY MANAGEMENT KEY 

:*BI1T07 = 0 DON'T USE MEMORY MANAGEMENT 

he MUST BE SETUP BEFORE THE CALL 

:*B1T15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION 


hd DETERMINED BY ROUTINE 

$SIZE: MOV RO,-(SP) 7;SAVE RO ON THE STACK 
MOV R1,-(SP) 3;SAVE R1 ON THE STACK 
MOV R2,-(SP) 3;SAVE R2 ON THE STACK 


MOV R3,-(SP) 3;SAVE R3 ON THE STACK 
MOV AWERRVEC,-(SP) :;SAVE PRESENT ERROR VECTOR PS & PC 
MOV a#ERRVEC#2,-(SP) 

VE THE STACK POINTER 


MOV SP,RO :SA 
7;SET THE Fee PS TO THE PRESENT PS 


;;PUSH OLD PSwW AND PC ON STACK 

MOV (SP) +, QaWERRVEC+2. 3;SAVE THE PSW IN Q#ERRVEC*2 

MOV #3776,R1 ;; SETUP ADDRESS 

TSTB (PC)+ >;USE MEMORY MANAGEMENT? 
$KT11: .WORD 200 ¢3SET TO USE MEMORY MANAGEMENT 

BPL SCORE ::BR IF NO 

MOV ood aWERRVEC 3SET FOR TIMEOUT 

TST SRO sKT11 ARE YOU THERE? 

BIS #100000, $KT11 SEYES@=SET KT11 KEY 

CLR -(SP) s: INITIALIZE FOR ‘'PAR'’ LOADING 

MOV aeiPARO, R2 : ADDRESS OF FIRST ‘‘PAR’ 

MOV “D8,R5 ;LOAD EIGHT ‘‘PAR.'S'’ AND EIGHT ‘‘PDR.'S” 
1$: MOV 477466, ~40(R2) T:POR = 4K, UP, READ/WRITE 

MOV (SP), (R2)* 3;LOAD ‘'PAR’ 

ADD #200, (SP) + {UPDATE FOR NEXT ‘‘PAR’ 

SOB R3,1$ ;LOOP UNTIL ALL EIGHT ARE LOADED 

MOV #177609,-(R2) 33 SETUP KIPAR7 FOR 1/0 


CLR -(R2) ;SETUP KIPAR6 FOR TESTING 
MOV #2$, QMERRVEC T:CATCH TIMEOUT IF NO SR3 
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or 
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iB 18-JUN-79 14:24 INE TO SIZE MEMORY SEQ 0108 
033272 012737 000020 172516 MOV #20,a#SR3 ; sENABLE 22 BIT MOD 

033300 00040) BR 3$ THIS PDP-11 HAS a SR3 REGISTER 
033302 022626 23: CMP (SP)+,(SP)+ 73 CLEAN OFF THE STACK==-NO SR3 
033304 005237 177572 3$: INC aasRro TURN ON MEMORY MANAGEMENT 
033310 012737 033334 000004 MOV WSKTOUT,Q#ERRVEC ;;SET FOR TIME OUT 

033316 5737 143776 4$: TST rod 143776 3; TRAP ON NON-EX-MEM 

033322 062712 000040 ADD #40, (R2) :MAKE A 1K STEP 

033326 023712 172356 CMP SAK PART, (R2) SLAST ONE? 

033332 101371 BHI 4% 33NO--TRY IT 

033334 011202 $KTOUT: MOV (R2) ,R2 3;GET LAST BANK+1 

033336 005037 177572 CLR te 9 ;; TURN OFF MEMORY MANAGEMENT 
033342 000421 BR $SIZEX 

033344 042737 100000 033202 SKINEX: BIC #100000 ,$KT11 3KT11 NON-EXISTENT 

033352 012737 033402 000004 SCORE: MOV #$CROUT, APERRVEC rf SET FOR TIMEOUT 

033360 005002 CLR R2 :SET UP BANK 

033362 062701 004000 1$: ADD #4000,R1 S EINCREMENT BY 1K 

033366 062702 000040 ADD oett R2 rok STEP 

033372 005711 TST R1) ; TRAP ON TIME OUT 

033374 022701 177776 CMP 4177776,R1 T]LAST ONE 

033400 001370 BNE 1$ 3;NO--TRY AGAIN 

033402 162701 004000 $CROUT: SUB #4000,R1 

033406 162702 000040 $SIZEX: SUB #40 ,R2 : sDROP BACK 

033412 010006 MOV RO, SP RESTORE THE STACK 

033414 012637 000006 MOV (SP)+,a#ERRVEC#2 ;;RESTORE ERROR VECTOR 
033420 012637 000004 MOV (SP)+,a#ERRVEC 

033424 010137 033446 MOV R1,$LSTAD 3;LAST ADDRESS 

033430 010237 033450 MOV R2,$LSTBK 7;LAST BANK 

033434 012603 MOV (SP)+,R3 ;;RESTORE R3 

033436 012602 MOV (SP)+#,R2 7 ;RESTORE R2 

033440 012601 MOV (SP)+,Ri 7 RESTORE R1 

033442 012600 MOV (SP)+,RO ; RESTORE RO 

033444 000207 RTS PC 

033446 000000 $SLSTAD: .WwORD 0 + CONTAINS THE LAST ADDRESS 
033450 000000 $LSTBK: .wORD 0 ;CONTAINS THE LAST BANK 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


‘wee eeereeeererereeererereeeeeeeereerereeeeeKneteeeeeeteenetteneee 
SeTHIS ROUTINE WILL READ AN OCTAL (ASCI1) NUMBER FROM THE TTY AND 
:*CHANGE IT TO BINARY. 
3*THE INPUT CHARACTERS WILL BE CHECKED TO so Ty THEY ARE LEGAL 
>*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘'?"' WILL BE TYPED 

[*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
:*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


s*CALL: 
:¢ RDOCT 7:READ AN OCTAL NUMBER 
3f RETURN HERE :;LOW ORDER BITS ARE ON TOP OF THE STACK 
:¢ :;HIGH ORDER BITS ARE IN $HIOCT 
033452 011646 $RDOCT: MOV (SP) ,-(SP) s;PROVIDE SPACE FOR THE 
033454 016666 000004 000002 MOV 4(SP),2(SP) >; INPUT NUMBER 
033462 010046 MOV RO,-(SP) 3;PUSH RO ON STACK 
033464 010146 MOV R1,-<SP) 7;PUSH R1 ON STACK 
033466 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 
033470 104411 1$: RDOLIN :;READ AN ASCIZ LINE 
033472 012600 MOV (SP)+,RO 3;GET ADDRESS OF 1ST CHARACTER 
033474 010037 033600 MOV RO,5$ >; AND SAVE IT 


a eae 
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MAINDEC-11-CRIJA-B MACY11 30A(1052) As JUN-79 
CRIJAB.P11 18-JUN-79 14:24 D AN OCTAL NUMBER FROM THE TTY SEQ 0109 

(1) 033500 005001 CLR R1 CLEAR DATA WORD 

(1) 033502 005002 CLR R2 

(1) 033504 112046 28: MOVB (RO)+,-(SP) ;sPICKUP THIS CHARACTER 

(1) 033506 001420 BEQ bt | F ZERO GET OUT 

(1) 033510 122716 000060 CMPB #'0, (SP) ::MAKE SURE THIS CHARACTER 

(1) 033514 003026 BGT 4$ ::1S AN OCTAL DIGIT 

(1) 033516 122716 000067 CMPB #'7, (SP) 

(1) 033522 002423 BLT 4$ 

(1) 033524 006301 ASL R1 r3%2 

(1) 033526 006102 ROL R2 

(1) 033530 006301 ASL R1 534 

(1) 033532 006102 ROL R2 

(1) 033534 006301 ASL R1 738 

(1) 033536 006102 ROL R2 

(1) 033540 042716 177770 BIC #*C7, (SP) :rSTRIP THE ASCII JUNK 

(1) 033544 062601 ADD (SP)+,R1 ::ADD IN THIS DIGIT 

(1) 033546 000756 BR 23 3; LOOP 

(1) 033550 005726 3$: 1ST (SP)¢ *:CLEAN TERMINATOR FROM STACK 
(1) 033552 010166 000012 MOV R1,12(SP) s:SAVE THE RESULT 

(1) 033556 010237 033610 MOV R2,$HIOCT 

(3) 033562 012602 MOV (SP)+,R2 :;POP STACK INTO R2 

(3) 033564 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

(3) 033566 012600 MOV (SP)+,RO >:POP STACK INTO RO 

(1) 033570 000002 RTI > RETURN 

(1) 033572 005726 4$: TST (SP)¢ ::CLEAN PARTIAL FROM STACK 

(1) 033574 105010 CLRB (RO) ::SET A TERMINATOR 

(1) 033576 104401 TYPE >; TYPE UP THRU THE BAD CHAR. 
(1) 033600 000000 5$: WORD 0 

(1) 033602 104401 001224 TYPE , SQUES i. a oe Bes be 

(1) 033606 000730 BR 1$ >: TRY AGAIN 

(1) 033610 000000 $HIOCT: .wORD 0 ::HIGH ORDER BITS GO HERE 

3126 .SBTTL TTY INPUT ROUTINE 

(1) 

42) H “@M@eeeeeeeeeeeeeeeteeterererereeeeeeetereneketenektektetaetetetetenet 
Ww) .ENABL LSB 

(1) 

(2) ppreeeereerererererereretreterererterrerreetereneeeeeereteneeneeee 
(1) > *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

(1) =*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WIL 

(1) eSERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
(1) s*WHEN OPERATING IN TTY FLAG MODE. 

(1) 033612 022737 000176 001140 $CKSWR: CMP #SWREG, SWR 3318 THE SOFT-SWR SELECTED? 
(1) 033620 001074 BNE 15$ sBRANCH IF NO 

(1) 033622 105777 145316 1STB astKs : CHAR THERE? 

(1) 033626 100071 BPL 15$ :1f NO, DON'T WAIT AROUND 

(1) 033630 117746 145312 MOVB asTKB,-(SP) ‘SAVE THE CHAR 

(1) 033634 042716 177600 BIC #*0177, (SP)  STRIP-OFF THE ASCII 

(1) 033640 022726 000007 CMP #7,(SP)¢ :18 11 A CONTROL G? 

(1) 033644 001062 BNE 1 ::NO, RETURN TO USER 

(1) 033646 123727 001134 000001 CMPB SAUTOB, #1 >;ARE WE RUNNING IN AUTO-MODE? 
) 033654 001456 BEQ 15$ :;BRANCH IF YES 

(1) 

(1) 033656 104401 034471 TYPE ,SCNTLG ECHO THE CONTROL-G (*G) 

(1) 033662 104401 034476 $GTSWR: TYPE ,SMSWR >: TYPE CURRENT CONTENTS 

(2) 033666 013746 000176 MOV SWREG,=(SP) >:SAVE SWREG FOR TYPEOUT 

(2) 033672 104402 TYPOC ::G0 TYPE*-OCTAL ASCII(ALL DIGITS) | 


ee eee Nee Nee eee ee ee ee eee ee ee ee eee eee ee eee ee ees a ees es eae se oe es ae 
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11 18-JUN-79 14:24 TTY INPUT ROUTINE SEQ 0110 
033674 104401 034507 TYPE , SMNEW :;PROMPT FOR NEW SWR 
033700 005046 198: CLR -(SP) :;CLEAR COUNTER 
033702 005046 CLR -(SP) 77 THE NEW SWR 
033704 105777 145234 7$: TS1B astKs 3: CHAR THERE? 
033710 100375 BPL 7$ s;1f NOT TRY AGAIN 
033712 117746 145230 MOvVB astKB,-(SP) s;PICK UP CHAR 
033716 042716 177600 BIC #*C177, (SP) > MAKE IT 7-BI1T ASCII 
033722 021627 000025 9$: CMP (SP), #25 3:18 17 A CONTROL<U? 
033726 001005 BNE 10% :;BRANCH IF NOT 
033730 104401 034464 TYPE »SCNTLU 77:YES, ECHO CONTROL-U (“U) 
033734 062706 000006 208: ADD #6,SP 3; 1GNORE PREVIOUS INPUT 
033740 000757 BR 19% :;LET'S TRY IT AGAIN 
033742 021627 000015 10$: CMP (SP) ,#15 s718 17 A <CR>? 
033746 001022 BNE 16% ;;BRANCH IF NO 
033750 005766 000004 TST 4(SP) :3;YES, IS IT THE FIRST CHAR? 
033754 001403 BEQ 118% 3 ;BRANCH IF YES 
033756 016677 000002 145154 MOV 2(SP) ,aSwR > SAVE NEW SWR 
033764 062706 000006 118: ADD #6,SP 3; CLEAR UP STACK 
033770 104401 001225 14$: TYPE , CRLF s:ECHO <CR> AND <LF> 
033774 123727 001135 000001 CMPB SINTAG,#1 >; RE-ENABLE TTY KBD INTERRUPTS? 
034002 001003 BNE 15$ :;BRANCH IF NOT 
0340046 012777 000100 145132 MOV #100,a$TKS s ;RE-ENABLE TTY KBD INTERRUPTS 
034012 000002 15$: RT1 7 RETURN 
034014 004737 034732 16$: JSR PC ,STYPEC 3;ECHO CHAR 
034020 021627 000060 CMP (SP) , #60 ::CHAR < 0? 
034024 002420 BLT 18% :;BRANCH IF YES 
034026 021627 000067 CMP (SP), #67 s:CHAR > 7? 
034032 003015 BGT 18% : BRANCH IF YES 
034034 042726 000060 BIC #60, (SP)¢ s;STRIP-OFF ASCII 
034040 005766 000002 TST 2(SP) ::1S THIS THE FIRST CHAR 
034044 001403 BEQ 17$ ; BRANCH IF YES 
034046 006316 ASL (SP) ::NO, SHIFT PRESENT 
034050 006316 ASL (SP) re CHAR OVER TO MAKE 
034052 006316 ASL (SP) ie ROOM FOR NEW ONE. 
034054 005266 000002 17$: INC 2(SP) 7:KEEP COUNT OF CHAR 
034060 056616 177776 BIS -2(SP),(SP) 3;SET IN NEW CHAR 
034064 000707 BR 7$ ::GET THE NEXT ONE 
034066 104401 001224 18$: TYPE , SQUES >: TYPE 2<CR><LF> 
034072 000720 beam a. 20% >; SIMULATE CONTROL-U 

‘ am 


 sweeeeteeeeteetaeeetetetererereeeteeeeeteteneteeeeteeeeeeeteenese 


:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


:*CALL: 

RDCHR s; INPUT A SINGLE CHARACTER FROM THE TTY 
a RETURN HERE : ; CHARACTER IS ON THE STACK 
e s WITH PARITY BIT STRIPPED OFF 


ee ee ee ee a i i i i i ee ee el ed el ll el el ll ltl el el ce ce el 
a a a 
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034212 


034214 


034336 


000002 


010346 


104401 


MACY11 S0A(1052) | 
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000004 
145034 


145030 
177600 
000004 
145002 
144776 
177600 
000021 
000004 
000004 


900040 


034450 
034464 


000177 


000134 
034446 
177777 
034450 


034446 
034446 


000134 
034446 


000025 
034464 


000002 


000004 
000004 
000023 


000140 


000175 


000004 


034446 


034446 


18-JUN=79 
TY INPUT ROUTINE 

SRDCHR: MOV (SP) ,-(SP) 
MOV 4(SP),2(¢SP) 

1$: TSIB = @STKS 
BPL 1$ 
MOVB a$TKB,4(SP) 
BIC PASSE 4(SP) 
CMP 4(SP), 
BNE 3$ 

2$: TSIB = @STKS 
BPL 2$ 
MOVB  a$TKB,-(SP) 
BIC #°C177, (SP) 
CMP (SP)+,#21 
BNE 2$ 
BR 1$ 

3$: CMP 4(SP) #140 
BLT 4 
CMP 4(SP),#175 
BGT 4$ 
BIC #40,4(SP) 

4$: RTl 
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SEQ O11 


:;PUSH DOWN THE PC 
3;SAVE THE PS 

>;WAIT FOR 

3;A CHARACTER 

> ;READ THE TTY 

:;GET RID OF JUNK IF ANY 
3318 11 A CONTROL-S? 
:;BRANCH IF NO 

;;WAIT FOR A CHARACTER 
3;LOOP UNTIL ITS THERE 
3;GET CHARACTER 

>;MAKE IT 7-BIT ASCI! 
3718 IT A CONTROL-Q? 
37 1F NOT DISCARD IT 

77 YES, RESUME 

7:18 11 UPPER CASE? 

> ;BRANCH IF YES 

3718 17 A SPECIAL CHAR? 
> BRANCH IF YES 

3;MAKE IT UPPER CASE 
::G0 BACK TO USER 


speeeeeeererererereerereerrerereeerererenerereneneneeeereeeeeTees 


:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


> *CALL: 
3* ROLIN 
:¢ RETURN HERE 
‘@ 
SRDLIN: MOV R3,-(SP) 
CLR -(SP) 
1$ MOV #STTYIN,RS 
2$ CMP #STTYINGI2.,R3 
BLOS 4% 
RDCHR 
MOVB (SP)+,(R3) 
10$: CMPB #177, (R3) 
BNE 5$ 
TST (SP) 
BNE 6$ 
MOVB a'\,9% 
TIPE 9% 
MOV #-1, (SP) 
6$: DEC R3 
CMP R3,#STTYIN 
BLO 4% 
MOVB (R3),9% 
TYPE 9% 
BR 2$ 
5$: TST (SP) 
BEQ 7$ 
MOVB #'\,9% 
TYPE P 
CLR (SP) 
7$: CMPB #25, (R35) 
BNE 8 


:; INPUT A STRING FROM THE TTY 
: ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
>; TERMINATOR WILL BE A BYTE OF ALL O°S 


7; SAVE R3 

3;CLEAR THE RUBOUT KEY 
3;GET ADDRESS 

> ;BUFFER FULL? 

7;BR IF YES 

::GO READ ONE CHARACTER FROM THE TTY 
3:GET CHARACTER 

ii . i caw 

at THIS THE FIRST RUBOUT? 
33 BR IF NO 

7: TYPE A BACK SLASH 


3;SET THE RUBOUT KEY 

::BACKUP BY OWE 

s:STACK EMPTY? 

7:BR IF YES 

at? oe TYPEOUT THE DELETED CHAR. 


G E 
: 360 READ ANOTHER CHAR, 
>;RUBOUT KEY SET? 
;:BR IF NO 
7; TYPE A BACK SLASH 


>; CLEAR THE RUBOUT KEY 
3718 CHARACTER A CTRL U? 
;;BR IF NO 

>; TYPE A CONTROL ‘'U"’ 
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B.P11 18-JUN-79 14:24 TY INPUT ROUTINE SEQ 0112 


CRIIA 
(1) 034342 000726 BR 1$ 3:G0 START OVER 
(1) 034344 1227135 000022 8$: CMPB #22,(R3) :71S CHARACTER A ‘*R'’? 
(1) 034350 001011 BNE 3$ ; BRANCH IF NO 
(1) 034352 105013 CLRB (R3) 3; CLEAR THE CHARACTER 
(1) 034354 104401 001225 TYPE  SCRLF s; TYPE A ‘CR’ & LF’ 
(1) 034360 104401 034450 TYPE -STTYIN 3; TYPE THE INPUT STRING 
(1) 034364 000717 BR 23 3:60 vat ANOTHER CHACTER 
(1) 034366 104401 001224 4$: TYPE , SQUES si; TYPE A 
(1) 034372 000712 BR 1$ >: CLEAR 1WE BUFFER AND LOOP 
(1) 034374 111337 034446 3$: MOvB (R3),9$% s;ECHO THE CHARACTER 
(1) 034400 104401 034446 TYPE 9 
(1) 034404 122723 000015 CMPB #15, (R3)¢ 7; CHECK FOR RETURN 
(1) 034410 001305 BNE 2$ ;;LOOP IF NOT RETURN 
(1) 034412 105063 177777 CLRB -1(R3) 7;CLEAR RETURN (THE 15) 
(1) 034416 104401 001226 TYPE ,SLf si TYPE A LINE FEED 
(1) 034422 005726 TST (SP)+ 3:;CLEAN RUBOUT KEY FROM THE STACK 
(1) 034424 012603 MOV (SP)+,R3 ; RESTORE R3 
(1) 034426 011646 MOV (SP) ,-(SP) s;ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 034430 016666 000004 000002 MOV 4(SP),2(SP) ss FIRST ASCI1 CHARACTER ON IT 
(1) 034436 012766 034450 000004 MOV @STTYIN,4(SP) 
(1) 034444 000002 RT] >; RETURN . 
(1) 034446 000 9$: -BYTE 0 s;STORAGE FOR ASCII CHAR. TO TYPE 
(1) 034447 000 -BYTE 0 >; TERMINATOR 
(1) 034450 000014 STTYIN: .BLKB 12. 3; ;RESERVE le. BYTES FOR TTY INPUT 
(1) 034464 052536 005015 000 S$CNTLU: .ASCIZ /*U/<15><12> >; CONTROL ‘‘U"’ 
(1) 034471 136 006507 000012 S$CNTLG: .ASCIZ /*G/<15><12> >; CONTROL ‘'G"’ 
(1) 034476 005015 053523 020122 S$MSWR: .ASCIZ <15><12>/SWR = / 
(1) 034504 020075 000 
(1) 034507 040 047040 053505 SMNEW: .ASCIZ / NEW = / 
(1) 034514 036440 000040 
wii ~SBTTL TYPE ROUTINE 
(1) 
(2) 23 *@e@eeeeeeeerereeeeerertetereteeteeeeeeeteeeeeeeeeeeeenetenaeeeteeetenese 
(1) [*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYIL. 
(1) >*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(1) :*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) : *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
(1) s*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
(1) sf 
(1) 3*CALL: 
(1) s#1) USING A TRAP INSTRUCTION 
(1) 38 TYPE »MESADR s:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
(1) 3; *OR 
(1) 3 TYPE 
(1) st MESADR 
te yf 
(1) 
(1) 034520 105737 001157 $TYPE: TSTB STPFLG ::1S THERE A TERMINAL? 
(1) 034524 100002 BPL 1$ 3;BR IF YES 
(1) 034526 000000 HALT :7HALT HERE IF NO TERMINAL 
(1) 034530 000430 BR 3$ 7; LEAVE 
(1) 034532 010046 1$: MOV RO,-(SP) 7: SAVE RO 
(1) 034534 017600 000002 MOV a2(SP),RO0 3;GET ADDRESS OF ASCIZ STRING 
(1) 034540 122737 000001 001250 CMPB #APTENV,SENV + ;RUNNING IN AFT MODE 
(1) 034546 001011 BNE 62% NO,GO CHECK FOR APT CONSOLE 
(1) 034550 132737 000100 001251 B11B #APTSPOOL ,SENVM +: SPOOL MESSAGE TO APT 


' 
a 
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034704 


034706 


035000 


001405 


013746 
105366 


000207 
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034570 
035722 


000040 


000002 
000011 
000200 


034776 


034732 
001156 


001154 
000001 


034732 
034776 


000040 
034732 
000007 


144212 


000002 
000015 


034776 
000012 


001251 


034776 


144204 
000002 


000002 


8$: 
9$: 


18-JUN-79 
TYPE ROUTINE 


J 
61$: WORD 
62$: 
2$: 
60$: 
3$: 
4$: 


5$: 
6$: 


7$: 


;HORIZONTAL TAB 


STYPEC: 


1$: 


B 
SCHARCNT: .WORD 
STYPEX: RTS 


~ SBTTL 


14: 


a. 
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62% 
RO,61$ 
PC, SATYS 


#APTCSUP, SENVM 
60% 
(RO)+,=(SP) 

4$ 


(SP)+ 
(SP)+,RO 
#2, (SP) 


WHT, (SP) 
8$ 

#CRLF, (SP) 
5$ 

(SP)+ 


SCHARCNT 
2$ 


PC ,STYPEC 
SFILLC,(SP)+ 


2% 
SNULL ,-(SP) 


1(SP) 

6$ 

PC, STYPEC 
SCHARCNT 
7$ 


PROCESSOR 


w' (SP) 
PC, STYPEC 
#7,$CHARCNT 
9$ 


(SP)+ 

2$ 

asTPs 
STYPEC 
2(SP) ,a$TPB 
+ ica 


SCHARCNT 
STYPEX 
WLF, — 
$TYPE 
(Pus 

0 

PC 


BINARY TO OCTAL (ASCII) 


;;NO0,GO CHECK FOR CONSOLE 
7;SETUP MESSAGE ADDRESS FOR APT 
;;SPOOL MESSAGE TO APT 
set CON ADDRESS 

;APT CONSOLE 1 eee 

;YES,SKIP TYPE OUT 
PUSH CHARACTER TO BE TYPED te STACK 
:;BR 1F IT ISN'T THE TERMINATO 
331F TERMINATOR POP IT OFF THE * Stace 
RAT RO 

soe tuae RETURN PC 


23 TURN 
+: BRANCH 1F <HT> 
3;BRANCH IF NOT <CRLF> 


::POP <CR><LF> EQUIV 
3; TYPE A CR AND LF 


7:CLEAR CHARACTER COUNT 

3;GET NEXT CHARACTER 

;;GO TYPE THIS CHARACTER 

3:18 17 TIME FOR FILLER CHARS.? 
3:1 NO GO GET NEXT CHAR. 

3;:GET # OF FILLER CHARS. NEEDED 
>;AND THE NULL CHAR. 

;;DOES A NULL NEED TO BE TYPED? 
;;BR IF NO--GO POP THE NULL OFF OF STACK 
3;G0 TYPE A NULL 

3:00 NOT COUNT AS A COUNT 

;; LOOP 


> REPLACE TAB WITH SPACE 

3; TYPE A SPACE 

;;BRANCH IF NOT AT 

3; TAB STOP 

3:POP SPACE OFF STACK 

::GET NEXT CHARACTER 

s;WAIT UNTIL PRINTER IS READY 


+ LOAD CHAR TO BE TYPED INTO DATA REG. 
31S CHARACTER A CARRIAGE RETURN? 

::BRANCH IF NO 

43+} (ieee CHARACTER COUNT 


ii1S CHARACTER A LINE FEED? 
;;BRANCH IF YES 

;;COUNT THE CHARACTER 

7; CHARACTER COUNT STORAGE 


AND TYPE 


SseeeereeeccesecoccesscerosesereesereserseneeseneeeeneeeseeseeTees 


SEQ 0113 


ee ed ae Ee a ee i i i ee i ee el el el el el ed ed el ed ee el el el ed 
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K 9 itis 
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P11 1B-JUN=79 14:26 NARY TO OCTAL (ASCII) AND TYPE SEQ 0114 


:*THIS ROUTINE IS USED TO CHANGE A 16-BiT BINARY NUMBER TO A 6-DIGIT 
S*OCTAL (ASCII) NUMBER AND TYPE IT. 
:*STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3 *CALL: 

ie MOV NUM ,-(SP) ;;NUMBER TO BE — 

3* TYPOS ;;CALL FOR TYPEOU 

3* -BYTE WN 3;N=1 TO 6 FOR RURBER OF DIGITS TO TYPE 
7* BYTE m >;M=1 OR O 

if ee )=TYPE LEADING ZEROS 

wn 3; 0=SUPPRESS LEADING ZEROS 


> *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s*$TYPOS OR $TYPOC 


>*CALL: 
ze MOV NUM ,-(SP) > NUMBER TO BE TYPED 
;* TYPON 3;CALL FOR TYPEOUT 
*® 
aa HERE FOR TYPEOUT OF A 16 BIT NUMBER 
>*CALL: 
if MOV NUM ,-(SP) >;NUMBER TO BE TYPED 
3* TYPOC :;CALL FOR TYPEOUT 
035002 017646 000000 $TYPOS: MOV a(SP),-(SP) > PICKUP THE MODE 
035006 116637 000001 035225 MOVB 1(SP),SOFILL :;LOAD ZERO FILL SWITCH 
035014 112637 035227 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
035020 062716 000002 ADD #2, (SP) :;ADJUST RETURN ADDRESS 
035024 000406 BR STYPON 
035026 112737 000001 035225 $TYPOC: MOVB #1,S0F ILL ::SET THE ZERO FILL SWITCH 
035034 112737 000006 035227 MOVB #6,S0MODE+1 ::SET FOR SIX(6) DIGITS 
035042 112737 000005 035224 $TYPON: MOVB #5, $0CNT 3;SET THE ITERATION COUNT 
035050 010346 MOV R3,-(SP) 77 SAVE R3 
035052 010446 MOV R4,-(SP) 3; SAVE RG 
035054 010546 MOV R5,-(SP) 7; SAVE R5 
035056 113704 035227 MOVB SOMODE +1, RG 3:;GET THE NUMBER OF DIGITS TO TYPE 
035062 005404 NEG 
035064 062704 000006 ADD a. RG :; SUBTRACT IT FOR MAX. ALLOWED 
035070 110437 035226 MOVB R4 . SOMODE ;;SAVE IT FOR USE 
035074 113704 035225 MOVB SOFILL,R4 3:;GET THE ZERO FILL SWITCH 
035100 016605 000012 MOV 12(SP),R5 ::PICKUP THE INPUT NUMBER 
0351046 005003 CLR R3 :;CLEAR THE OUTPUT WORD 
035106 006105 1$: ROL ib) > ;ROTATE MSB INTO “'C"’ 
035110 000404 BR 3$ 3:60 DO MSB 
035112 006105 2$: ROL RS ::FORM THIS DIGiT 
035114 006105 ROL R5 
035116 006105 ROL R5 
035120 010503 MOV R5,R3 
035122 006103 3$: ROL R5 ::GET LSB OF THIS DIGIT 
035124 105337 035226 DECB SOMODE s; TYPE THIS DIGIT? 
035130 100016 BPL 3;BR IF NO 
035132 042703 177770 BIC #177770,R3 GET RID OF JUNK 
035136 001002 BNE 4% 7: TEST FOR O 
035140 005704 TST RG 7: SUPPRESS THIS 0? 
035142 001403 BEQ 5$ 7;BR IF YES 
035144 005204 4%: INC RG ::DON'T SUPPRESS ANYMORE 0°S 
035146 052703 000060 BIS #'0,R3 7;MAKE THIS DIGIT ASCII 
035152 052703 000040 5$: BIS a’ RS >;MAKE ASCI1] IF NOT ALREADY 
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tl 9 
11-CRIIA-B reg hy 30A(1052) 18-JUN-79 14:32 PAGE 70-12 
11 1B8-JUN-79 14:24 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0115 
035156 110337 035222 MOVB R3,8% 7:SAVE FOR TYPING 
035162 104401 035222 TIPE 8% ::G0 TYPE THIS DIGIT 
035166 105337 035224 7$: - DECB SOCNT 3;COUNT BY 1 
035172 003347 BGT 23 3;BR 1F MORE TO DO 
035174 002402 BLT 6$ 3:BR IF DONE 
035176 005204 INC R4 +: INSURE LAST DIGIT ISN'T A BLANK 
035200 000744 BR 23 3:60 DO THE LAST DIGIT 
035202 012605 6$: MOV (SP)+,R5 > :RESTORE R R5 
035204 012604 MOV (SP)+,R4 ;;RESTORE R4 
35206 012603 MOV (SP)+,R3 > RESTORE R3 
035210 016666 000002 000004 MOV 2(SP) ,4(SP) 3;SET THE STACK FOR RETURNING 
035216 012616 MOV (SP)+, (SP) 
035220 000002 RT] 7 ;RETURN 
035222 000 8$ BYTE 0 3;STORAGE FOR ASCII DIGIT 
035223 000 BYTE 0 3; TERMINATOR FOR TYPE ROUTINE 
035224 000 SOCNT: .BYTE 0 ;;O0CTAL DIGIT COUNTER 
035225 000 SOFILL: yb 0 poe FILL SWITCH 
035226 000000 SOMODE : ORD 0 NUMBER OF DIGITS TO TYPE 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
preeeeeereretrreeeeerertrrrterereeeetreeAReeeKRRAA RAK ee eee 
 STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
> *NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
eo tee WITH SPACES. 
>*CALL: 
7° MOV NUM ,-(SP) :;PUT THE BINARY NUMBER ON THE STACK 
3* TYPDS 3:60 TO THE ROUTINE 
035230 STYPDS: 
035230 010046 MOV RO,-(SP) 3;PUSH RO ON STACK 
035232 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 
035234 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 
035236 010346 MOV R3,-(SP) 3;PUSH R3 ON STACK 
035240 010546 MOV RS,-(SP) 7;PUSH RS ON STACK 
035242 012746 020200 MOV #20200, -(SP) 3:SET BLANK SWITCH AND SIGN 
035246 016605 000020 MOV 20(SP),R5 3:GET THE INPUT NUMBER 
035252 100004 BPL 1$ :;BR IF INPUT IS POS. 
035254 005405 NEG R5 :;MAKE THE BINARY NUMBER POS. 
035256 112766 000055 000001 MOVB #'=,1(SP) 3:MAKE THE ASCI] NUMBER NEG. 
035264 005000 1$: CLR RO 3;ZERO THE CONSTANTS INDEX 
035266 012703 035444 MOV #SDBLK ,R3 7:;SETUP THE OUTPUT POINTER 
035272 112723 000040 MOvVB #' ,(R3)¢ :;SET THE FIRST CHARACTER TO A BLANK 
035276 005002 2$: CLR R2 7;CLEAR THE BCD NUMBER 
035300 016001 035434 MOV SDTBL(RO),R1 :,GET THE CONSTANT 
035304 160105 3$: SUB R1,R5 7:FORM THIS BCD DIGIT 
035306 002402 BLT 4% ;;BR IF DONE 
035310 005202 INC R2 :: INCREASE THE BCD DIGIT BY 1 
035312 000774 BR 3$ 
035314 060105 4$: ADD R1,R5 :;ADD BACK THE CONSTANT 
035316 005702 TST Re >: CHECK IF BCD DIGIT=0 
035320 001002 BNE 5$ +e FALL THROUGH IF 0 
035322 105716 TSTB (SP) sSTILL DOING LEADING 0'S? 
035324 100407 BM] 7% > IBR IF YES 
035326 106316 S$: ASLB (SP) 73MSD? 
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1 18-JUN-79 14:24 CONVERT BINARY TO DECIMAL AND TYPe ROUTINE SEQ 0116 
035330 103003 BCC 6$ ;:BR IF NO 
035332 116663 000001 177777 MOVB 1(SP) ,-1(R3) 7: YES--SET THE SIGN 
035340 052702 000060 6$: BIS #°0,R2 ;;MAKE THE BCD DIGIT ASCII 
035344 052702 000040 7$: BIS #' ,R2 ;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
035350 110223 MOVB R2,(R3)+ 3;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
035352 005720 TST (RO) + 3:;JUST INCREMENTING 
035354 020027 000010 CMP RO,#10 ;;CHECK THE TABLE INDEX 
035360 002746 BLT 2$ ;;G0 DO THE NEXT DIGIT 
035362 003002 BGT 8 ;;G0 TO EXIT 
035364 010502 MOV R5,R2 ;;GET THE LSD 
035366 000764 BR 6$ ;:GO CHANGE TO ASCII 
035370 105726 8$: TSTB (SP)+ 3;WAS THE LSD THE FIRST NON-ZERO? 
035372 100003 BPL 9$ ::BR IF NO 
035374 116663 177777 177776 MOVB “1(SP),-2(R3) 3; YES--SET THE SIGN FOR TYPING 
035402 105013 9$: CLRB (R3) 7;SET THE TERMINATOR 
035404 012605 MOV (SP)+,R5 3;POP STACK INTO R5 
035406 012603 MOV (SP)+,R3 3;POP STACK INTO R3 
035410 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 
035412 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
035414 012600 MOV (SP)+,RO 7;POP STACK INTO RO 
035416 104401 035444 TYPE , SDBLK ;;NOW TYPE THE NUMBER 
035422 016666 000002 000004 MOV 2(SP) ,4(SP) ADJUST THE STACK 
035430 012616 MOV (SP)+, (SP) 
035432 000002 RTl ;;RETURN TO USER 
035434 023420 $DTBL: 10000. 
035436 001750 1000. 
035440 000144 100. 
035442 000012 10. 
035444 000004 SDBLK: .BLKW 4 
-SBTTL TRAP DECODER 
pyeteeeeeeereerrarereretereeettrerteereeee eee eRe RATA e KATE 
7*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
7*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 
035454 010046 STRAP: MOV RO,-(SP) 7; SAVE RO 
035456 016600 000002 MOV 2(SP),RO 3;GET TRAP ADDRESS 
035462 005740 TST -(RO) ;;BACKUP BY 2 
035464 111000 MOVB (RO) ,RO 3;GET RIGHT BYTE OF TRAP 
035466 006300 ASL RO >;POSITION FOR INDEXING 
035470 016000 035510 MOV STRPAD(RO),RO ;; INDEX TO TABLE 
035474 000200 RTS RO 3:50 TO ROUTINE 
7:THIS IS USE TO HANDLE THE ‘'GETPRI** MACRO 
035476 011646 $STRAP2: MOV (SP) ,-(SP) 7;MOVE THE PC DOWN 
035500 016666 000004 000002 MOV 4(SP),2(SP) 7:MOVE THE PSW DOWN 
035506 000002 RT] 7 ;RESTORE THE PSW 


-SBTTL TRAP TABLE 


y*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE ‘‘TRAP’’ INSTRUCTION, 
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035606 


035610 
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035476 


035230 
033662 
033612 
034074 


034214 
033452 


000000 


035676 
000340 


143346 
035702 
035610 


035676 


035702 
143300 


035536 
000340 


vet hy eats 


000024 
000026 


000024 


000024 


000024 
000026 


ae tink 
TABLE 


: ROUTINE 


. WORD 
STYP 
$TYPOC 
$TYPOS 


$TYPON 
$STYPDS 


SGTSWR 
SCKS@R 
SRDCHR 
SRDLIN 


$RDOC 
-SBTTL POWER DOWN AND UP ROUTINES 


$TRPAD: 





nN 9 
732 PAGE 70-14 





SEQ 0117 


STRAP2 
+ CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

;CALL=TYPOC TRAP4#+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
::CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
7; CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
3; CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SWR 
;;CALL=ROCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
;;CALL=ROLIN TRAP#11(104411) TTY TYPEIN STRING ROUTINE 


;;CALL=RDOCT TRAP#12(104412) READ AN OCTAL NUMBER FROM TTY 


ppeteerererrererreeeeererererreeeeeterekeneeeKeeneeeeeKeeeeeeAee 


;POWER DOWN ROUTINE 


SPWRDN: MOV 


MSILLUP aMPWRVEC ;;SET 


FOR FAST UP 
#340, aMPWRVEC+2 ;:PRIO:7 


RO, -(SP) ;;PUSH RO ON STACK 

R1,-(SP) 3;PUSH R1 ON STACK 

R2,-(SP) ;;PUSH R2 ON STACK 

R3,-(SP) ;;PUSH R3 ON STACK 
R4,-(SP) ;;PUSH R4& ON STACK , 
R5,-(SP) ;;PUSH R5 ON STACK 

aSWR,-(SP) ;;PUSH @SWR ON STACK 


SP ,SSAVR6 7; SAVE SP 
WSPWRUP ,a#PWRVEC ;;SET UP VECTOR 


72 ::HANG UP 


spetererereererrrerererrereeterererertrenaenereteeneneeeeneeeeeese 


;POWER UP ROUTINE 


SPWRUP: MOV 


1$: INC 


SPWRMG: 
$SILLUP: 
SSAVRE: O 


#SILLUP ,Q#PWRVEC >;SET FOR FAST DOWN 
SSAVR6,SP :;GET SP 


SSAVR6 :;WAIT LOOP FOR THE TTY 
SSAVRO6 :;WAIT FOR THE INC 

1$ S38 WORD 

(SP)+,aSwR :;POP STACK INTO aSwR 
(SP)+,k5 3;POP STACK INTO R5 
(SP)+,R4 3;POP STACK INTO R4& 
(SP)+,R3 3;POP STACK INTO R3 
(SP)4+,R2 3;POP STACK INTO R2 
(SP)+,R1 + POP STACK INTO R1 
(SP)+,RO 0 


; STACK INTO RO 
#SPWRON,a#PWRVEC i gSEI UP THE POWER DOWN VECTOR 
#340 ,a#PWRVEC +2 ;:PRIO:7 

REPORT THE POWER FAILURE 
SPOWER :;POWER FAIL MESSAGE POINTER 


7; THE POWER UP SEQUENCE WAS STARTED 


272 >; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 


imei 
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1A-8 

18-JUN-79 14:24 POWER DOWN AND UP ROUTINES SEQ 0118 
005015 047520 042527 S$POWER: .ASCIZ <15><12>"’POWER"’ 
000122 


-EVEN 
-SBTTL APT COMMUNICATIONS ROUTINE 


,yeekeeeerrrreeeerterecereererrrerrrrrrerereeeeneereeeeAeeeeeee ee 


112737 000001 036160 $ATY1: MOVB #1,SFFLG 3;TO REPORT FATAL ERROR 
112737 000001 036156 SATY3: MOVB #1, SMFLG 3:10 TYPE A MESSAGE 
000403 BR SATYC 
112737 000001 036160 cared. MOVB #1,SFFLG ;;TO ONLY REPORT FATAL ERROR 
Y . 
010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
010146 MOV R1,-(SP) “he R1 ON STACK 
105737 036156 TSTB S$MFLG ;SHOULD TYPE A MESSAGE? 
001450 BEQ 5$ ;1F NOT: BR 
122737 000001 001250 CMPB #APTENV,SENV ; [OPERATING UNDER APT? 
001031 BNE 3$ ;1F NOT: BR 
132737 000100 001251 BITB #APTSPOOL ,SENVM 3 3 SHOULD SPOOL MESSAGES? 
001425 BEQ 3$ ;1F NOT: BR 
017600 000004 MOV a4 (SP) ,RO ::GET MESSAGE ADDR. 
062766 000002 009004 ADD #2,4(SP) ;BUMP RETURN ADDR. 
005737 001230 1$: TST SMSGTYPE ::SEE 1F DONE W/ LAST XMISSION? 
001375 BNE 1$ 331F NOT: WAIT 
010037 001244 MOV RO, SMSGAD ;;PUT ADDR IN MAILBOX 
105720 2$: TSTB (RO) + 33;FIND END OF MESSAGE 
001376 BNE 2$ 
163700 001244 SUB SMSGAD ,RO 3;SUB START OF MESSAGE 
006200 ASR RO ;;GET MESSAGE LNGTH IN WORDS 
010037 001246 MOV RO, SMSGLGT ;;PUT LENGTH IN MAILBOX 
012737 000004 0012350 MOV #4 ,SMSGTYPE ;;TELL APT TO TAKE MSG. 
000413 BR 5$ 
017637 000004 036070 38: MOV a4(SP) ,4% ;;PuT MSG ADDR IN JSR LINKAGE 
062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDRESS 
013746 177776 MOV 177776,-(SP) >; PUSH 177776 ON STACK 
004737 034520 JSR PC, $TYPE 3;CALL TYPE MACRO 
000000 fe -WORD 0 
105737 036160 10$: TSTB SFFLG +3 SHOULD” REPORT FATAL ERROR? 
001416 BEQ 12$ NOT: BR 
005737 001250 TST SENV : RUNNING UNDER APT? 
001413 BEQ 12$ ::1F NOT: BR 
005737 001230 118: TST SMSGTYPE ; FINISHED LAST MESSAGE? 
001375 BNE 11$ IF NOT: WAIT 
017637 000004 001232 MOV Q4(SP),SFATAL 3 ;GET ERROR # 
062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDR. 
005237 001230 INC SMSGTYPE ::TELL APT TO TAKE ERROR 
105037 036160 12$: CLRB SFFLG 3:CLEAR FATAL FLAG 
105037 036157 CLRB SLFLG ;;CLEAR LOG FLAG 
105037 036156 CLRB SMFLG 3;CLEAR MESSAGE FLAG 
012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
012600 MOV (SP)+,RO ;;POP STACK INTO RO | 
000207 RTS PC ;;RETURN 
000 SMFLG: .BYTE 0 7;MESSG. FLAG . 
000 SLFLG: .BYTE 0 ;;LOG FLAG 
000 SFFLG: .BYTE 0 7 FATAL FLAG 
036162 -EVEN 


aehcetiaiiamintaainiandll 
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000100 APTSPOOL=100 
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CRIIAB.P11 18-JUN-79 14:24 T COMMUNICATIONS ROUTINE SEQ 0119 
(1) 000200 APTSIZE=200 « 
tt 000001 APTENV=001 
(1) 000040 APTCSUP=040 


3135 


3136 


3137 


3138 


3139 


3140 


3141 


036634 
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14:24 MESSAGES 


020122 


051440 
050124 


051505 


044502 


051122 
041040 


047524 
050050 


052105 
024040 


EM1: 


EM2: 


EM7: 


EM10: 


EM11: 


EM12: 


EM13: 


EM14: 


-ASCIZ /1E (PGTE BIT2) CANNOT BE CLEARED BY RESET (ACR CLR)/ 


SEQ 0120 


-SBTTL MESSAGES 
-ASCIZ /ACR BIT3-0 LOAD-READ ERROR/ 


eASCIZ /ACR BiT3-0 WERE NOT CLEARED BY RESET (ACR=CLR)/ 


-ASCIZ /1E (PGTE BIT2) CANNOT BE SET/ 


eASCIZ /1E (PGTE BIT2) CANNOT BE WRITTEN TO 0/ 


-ASCIZ /PTP (PGTE BIT1) CANNOT BE SET/ 


-ASCIZ /PTP (PGTE BIT1) CANNOT BE WRITTEN TO 0/ 


~ASCIZ /PTP (PGTE BIT1) CANNOT BE CLEARED BY RESET (ACR CLR)/ 


E 10 
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24 MESSAGES 


CRIIAB.P11 18-JUN-79 14:2 SEQ 0121 
036642 024040 041501 020122 
036650 046103 024522 00 
3142 036655 120 052107 020105 EMS: -ASC1Z /PGTE B1T11-8 LOAD-READ ERROR/ 
036662 044502 030524 026461 
036670 020070 047514 042101 


3143 Oto os 043520 042524 041040 EM4: -ASCIZ /PGTE BIT11-8 WERE NOT CLEARED BY RESET (ACR CLR)/ 


036764 vom 046105 024522 
3144 036773 120 052107 020105 EMS: -ASC1Z /PGTE B1T3-0 LOAD-READ ERROR/ 


000 
3145 037027 120 052107 020105 EM6: eASCIZ /PGTE B1T3-0 WERE NOT CLEARED BY RESET (ACR CLR)/ 


037100 020122 046103 024522 
3146 037107 123. 052124 020105 EMI5: .ASCIZ /STTE BIT11-8 LOAD-READ ERROR/ 


3147 037144 052123 042524 041040 EMI6: -ASCIZ /SITE BIT11-8 WERE NOT CLEARED BY RESET (ACR CLR)/ 


_ 037216 ea 046103 024522 
3148 037225 123 052124 020105 EMI7: .ASCIZ /STTE B1T3-0 LOAD-READ ERROR/ 


000 
3149 ht 123 052124 020105 EM20: .ASCIZ /STTE BIT3-0 WERE NOT CLEARED BY RESET (ACR CLR)/ 
66 


324 052105 024040 041501 


341 114 042513 Oe tees EM21: .ASCIZ /LKE (STCS BIT2) CANNOT BE SET/ 


370 042502 051440 052105 


3151 037377 


F 10 
1-CRIIA-B MACY11 30A(1052) 18-JUN-79 14:32 PAGE 71-2 
1 18-JUN-79 14:24 MESSAGES SEQ 0122 
37332 020122 046103 024522 
37340 000 
37 
37 
37 
37 
zy 
14 042513 024040 EM22: .ASCIZ /LKE (STCS BIT2) CANNOT BE WRITTEN TO 0/ 


047105 052040 
3152 037446 0455 020105 051450 EM23: -ASCIZ /LKE (STCS BIT2) CANNOT BE CLEARED BY RESET (ACR CLR)/ 


037454 041524 020123 044502 : 


000 
3153 037533 123 050124 024040 EM24: -ASCIZ /STP (STCS BIT1) CANNOT BE SET/ 


037554 047101 047516 020124 
037562 ee 051440 052105 


037570 0 
3154 037571 123 050124 024040 EM25: .ASCIZ /STP (STCS BIT1) CANNOT BE WRITTEN TO 0, 
037576 052123 051503 041040 


037626 052124 047105 052040 
3155 037640 052123 020120 051450 EM26: -ASCIZ /STP (STCS BIT1) CANNOT BE CLEARED BY RESET (ACR CLR)/ 


3156 725 05 041116 024040 EM27: -ASCIZ /ENB (STCS BITO) CANNOT BE SET/ 


01 
oS 051440 052105 

Ff 041116 024040 EM30: .ASCI2 /ENB (STCS BITO) CANNOT BE WRITTEN TO 0/ 
11 

01 


AWWA IW 
™N 


3157 


047516 020124 


a 
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3158 


3159 


3160 


3161 


3162 


3163 


3164 


3165 


040012 


040474 


18-JUN-79 14:2 


042502 
0 


053440 
047105 


046103 
051515 
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046103 


041524 
030461 


044522 
052040 


051450 


024522 
020113 


041501 
02452 


020113 


041501 
024522 


041040 
034055 


EM31: 


EM32: 


—EM33: 


EM34: 


EM35: 


EM36: 


—EM37: 


EM4O: 
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724 MESSAGES 


-ASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


SEQ 0123 


/ENB (STCS BITO) CANNOT BE CLEARED BY RESET (ACR CLR)/ 


/STCS B1115-8 LOAD-READ ERROR/ 


/STCS B1115-8 WERE NOT CLEARED BY RESET (ACR CLR)/ 


/IMSK BIT11-8 LOAD-READ ERROR/ 


/IMSK BIT11-8 WERE NOT CLEARED BY RESET (ACR CLR)/ 


/IMSK B1T3-0 LOAD-READ ERROR/ 


/IMSK B1T3-0 WERE NOT CLEARED BY RESET (ACR CLR)/ 


/M1C BI111-8 LOAD-READ FRROR/ 








MAINDEC-11-CRIIA-B 
CRIIAB.P11 


3166 


3167 


3168 


3169 


3170 


040502 


041016 


041017 
041024 
041032 
041040 
041046 
041054 


000122 


046103 


041524 
0264635 


047522 


051103 
024460 
026517 
046505 
051105 


026504 
me 


024522 
041040 


051105 


044502 
053440 


027122 
024040 


047105 
047522 


EM41: 


EM42: 


EM43: 


EM44: 


EM4S: 


-ASCIZ 


«ASCIZ 


-ASCIZ 


-ASCI1 


-ASCIZ 


eASCIZ 
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/MTC BIT11-8 WERE NOT CLEARED BY RESET (ACR CLR)/ 


/M1C B113-0 LOAD-READ ERROR/ 


/M1C B1135-0 WERE NOT CLEARED BY RESET (ACR CLR)/ 


/11$1 ERROR - REFER TO THE LISTING AT ‘'PC''/ 


<CRLF>/TO DETERMINE THE ERROR./ 


JACR (3:0) AUTO-INCREMENT ERROR/ 


ames. 


SEQ 0124 


MAINDEC-11-CRIIA-B 
CRIIAB.P11 


3174 


3175 


3176 


3177 


3178 


3179 


3180 


3181 


3182 


3183 


3184 


041056 
0 


041516 
041524 


18-JUN-79 14:2 


040520 


020040 


051523 


020040 
051523 


050040 
051523 
041520 
020040 
042124 
052524 
052123 


051501 
050040 


051440 
051523 


046511 
051501 


041520 


020040 
020040 


041501 
020040 
020040 
043520 


020123 


052107 
020040 


042524 
020123 
020103 
051440 
020040 
020040 
052123 


020123 


041524 
020040 


045525 


020123 
020103 
044440 


020040 
020040 


DHI: 


DH2: 


DH3: 


DH4: 


DHS: 


DH6: 


DH7: 


DH8: 


DH9: 


DH10: 


DH11: 


eASCIZ 


«ASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASC12Z 


-ASCIZ 


1 10 
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/PASS 


/PASS 


/PASS 


/PASS 


/PASS 


/PASS 


/PASS 


/PASS 


/PASS 


/PASS 


/PASS 


PC 


PC 


PC 


PC 


PC 


PC 


PC 


PC 


PC 


PC 


PC 


EXPCTD ACTUAL 


ACR/ 


PGTE/ 


EXPCTD ACTUAL 


EXPCTD ACTUAL 


STTE/ 


STCS/ 


EXPCTD ACTUAL 


EXPCTD ACTUAL 


IMSK/ 


EXPCTD ACTUAL 


ACR/ 


PGTE/ 


STTE/ 


STCS/ 


IMSK/ 


MICE/ 


SEQ 0125 



















3185 


3186 


3187 


3188 


3189 


3190 


041532 


042156 
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020040 


000000 


052044 
041501 


020040 


000 
042523 
020104 


000 


054105 


020123 
020103 
046440 


020040 


050115 


020122 
051505 


051122 
042526 
040440 
051523 


042514 


042440 


043114 
020075 


001124 
000000 
024750 


DH12: 


DH13: 


ASKDVA: 


ASKPIV: 


ASKBRL: 


HDRMES: 


SPACE: 
TWOSP: 


DMPSID: . 


CARET: 


DT1: 
DT2: 


J.10 
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-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCI1 


/PASS PC MTCE/ 


/PASS PC LINE # EXPCTD ACTUAL DISPLY 


<CRLF><CRLF>/ACR ADDRESS: / 


/INTERRUPT VECTOR ADDRESS: / 


/BR LEVEL (4-7): / 


<CRLF>/PGTE PGCS STTE STCS IMSK PGF 


<CRLF > 

// 

a 

<CRLF>/SELF ID = / 
<CRLF> 


SPASS ,SERRPC ,SGDDAT ,SBDDAT ,DISPLY,0 
SPASS,SERRPC,DISPLY,0 


SEQ 0126 


STMPO 8 =—STMPI/ 
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3200 042160 001236 901116 024754 DT3: -WORD $PASS,SERRPC,LINMBR,SGDDAT,SBDDAT ,DISPLY,STMPO,STMP1 ,0 
042166 001124 001126 024750 
042174 001176 001200 000000 
3201 042202 001 000 000 DAFI: .BYTE 1,0,0,0,0,0,0,0 
042205 000 000 000 
042210 000 000 
3202 ~EVEN 


3204 000001 - END THAT'S ALL FOLKS! 


SEQ 0127 
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CRIIAB.P11 18-JUN-79 14:24 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0128 

ABASE = 000000 254 

ACDW1 = 000000 254 

ACDW2 = 000000 254 

ACPUOP= 000000 254 

ACR 024732 778* 779 791* 792* 793 806+ 809 816* 818 823* 825 830* 832 
837* 839 854+ 856* 858+ 860+ 862+ 864* 866* 868" 870+ 872* 874e 
876+ 878+ 880+ 901* 907+ 9148 928+ 933* 941* 958* 960 962 1011¢ 
1014* 1022* 1032" 1039 1044* 1049" 1057" 1059* 1061" 1079 1103* 1107* 1123¢ 
VW127* = 1137% = 1144" 91149" = 1154" = 1159 = 1164" = 1184" = 1187" =61195* = 1205" = 2t2e = 1217 
1222" 1230" 1232" 1234* 1252* 1263* 1267* 1283" 1287" 1297" 1304* 1309" 1514¢ 
1319" 13246 1340" 1342 1364% 1346% 1349" 1358 1365* 1367 1373* 1386* 1388¢ 
1390* 1392% 1395" 1404" 14118 1425" 1427" 1429" 14318 1434" 1443* 1450" 14528 
1458* 1471% 1673" 1475 1477* 1480* 1489" 1496" 1508* 1511* 1525" 1540" 1550 
1554* 1562* 1577" 1590 1593# 1599 1608*  1630* 1641" 1648" 1652" 1666* 1672¢ 
1677* 1684" 1700* 1724* 1726* 1737* 1744" 1748 1761" 1768* 1784" 1800 1849 
1885 1931* 1937* 1941* 1965* 1973* 1980* 1993" 2005*  2043* 2058*  2060* 2069+ 
2071* 2081" 2083" 2093" 2105" 2107* 2115" 2117" 2119 2120 121 2123 2124 
2126* §=2143% «= 2149" = 2152% = 21535" = 2157* = 281% =. 2188* =—.2192* §=— 2193* = 2201" 2208" 22208 
2227* 2233% 2284% 2289* 2296 2339* =2344% =2349% = 2.355% = 2431*# = baat = 2448 2449 
2450* 2452 2459% 2471* 2504 2505* 2511" 2533 2538* 2539 2541 2543 2602* 
2603 26184 2694" 2703 2713* 2719% 2721* 2728 2732 2733 2734 2735 2738+ 


2740* 2760" 2768 2773" 2775* 2780* 2796" 2801 2802 2803 2804 2805 coe 
2912* 2929% 2932 2933 2934 2953* 2958  2966* 3022* 3031*  3035* 3039 3080* 


ACRH 024734 2286 2543" 2544* 2545 26198 

ADDWO = 000000 254 

ADDW1 = 000000 254 

ADDW10= 000000 254 

ADDW11= 000000 254 

ADDW12= 000000 254 

ADDW13= 000000 254 

ADDW14= 000000 254 

ADDW15= 000000 254 

ADDW2 = 000000 254 

ADDW3 = 000000 254 

ADDW4 = 000000 254 

ADDWS = 000000 254 

ADDW6 = 000000 254 

ADDW7 = 000000 254 

ADDW8 = 000000 254 

ADDW9 = 000000 254 

ADEVCT= 000000 254 

ADEVM = 000000 254 

ADR 024736 807 817* 824" 831+ 902 915 934 952 963 1801 1850 1886 2297 
2506 2545" 2546" 2547 2621# 3051 

ADRH 024740 B838* 2547 2548  26352# 

AENV = 000000 254 

AENVM = 000000 254 

AFATAL= 000000 254 

AMADR1= 000000 254 

AMADR2= 000000 254 

AMADR3= 000000 254 

AMADR4= 000000 254 

AMAPS1= 000000 254 


AMAMS2= 000000 254 





MAINDEC-11-CRIIJA-B MACYIT SOA(1OS2) 1B-JUN=79_ 14:52, PAGE 73-1 
CRIIAB.P11 | 1B-JUN-79 14:24 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0129 
ARAMS3= 000000 254 
ARAMS4= 000000 254 
ARSGAD= 0 254 
AMSGLG= 000000 254 
AMSGTY= 000000 254 
ARTYP1= 000000 254 
ARTYP2= 000000 254 
ARTYP3= 000000 254 
ARTYP4= 000000 254 
APASS = 000000 254 
APRIOR= 000000 254 
APTCSU= 000040 3125 3130" 
APTENV= 000001 3120 3125 «31308 
APTSIZ= 000200 703 31308 
APTSPO= 000100 3125 31308 
ASKBRL 041761 2562 31898 
ASKDVA 041706 2532 ©3187" 
ASKPIV 041726 2549 31884 
ASWREG= 000000 254 
ATESTN= 000000 254 
AUNIT = 000000 254 
AUSWR = 000000 254 
AVECT1= 000000 254 
AVECT2= 000000 254 
BEGIN 002666 719 «7308 
BITO = 000001 2418 504 520 531 538 549—iSt—t«é«‘C? 571 582 593 606 ~—s«856 
864 876 880 2499 
B1T00 = 000001 2618 
B1T01 = 000002 2418 
B1T02 = 000004 2614 
B1T03 = 000010 2418 
B1T04 = 000020 2418 
B1T0S = 000040 2418 
1706 = 000100 2614 
B1T07 = 000200 2418 
B1T08 = 000400 2418 
B1T09 = 001000 2414 3119 3120 
BIT! = 000002 2418 519 530 537 548 559 566 570 581 592 605 
B1T10 = 002000 2418 498 «525 543554 C(ié‘QHSCSC«*SBC(iti«CS9BSCé8120 
B1T11 = 004000 2418 497 ~—-512 524 542 «553)—Ss«*S75 586 597 3119 
BIT12 = 010000 2418 = 511 
BIT13 = 020000 2418 510 3120 
BIT14 = 040000 2618 509 3119 
B1T15 = 100000 2418 483 508 
BIT2 = 000004 2418 502 518 529 5362 «547)—si«CSSBCSOS 569 = 5580—Ss«*S 91 604 
BIT3 = 000010 2414 501 as Ge SR CU a ae 568 3=—s«579Ss«dS90Sts«i08 
BIT4 = 000020 2618 
BITS = 000040 2414 
B1T6 = 000100 2614 
BIT? = 000200 2618 
BITB = 000400 2618 500 514 516 . 556 «= s«578~—S—sé«CBDs—“‘iSC“‘ia CSC 
4 
B1T9 = 001000 2418 499 515 516 526 Shh 555 577 588 = 601 602 2516 
BMITAB 022002 1389 1474 = 2.264a 
BMO = 000400 545 
BM1 = _ 001000 544M 
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BM2 = 002000 5438 
BMS = 004000 5428 
BPTVEC= 000014 2418 
BRKTAB 022002 2038 2052 2063 2074 22678 
BRKO = 000400 5788 
BRK1 = 001000 577a 
BRK2 = 002000 5764 
BRK3 = 004000 575a 
CARET 042131 2510 2610 2611 31954 
CKSWR = 104407 2515 3119 3120 31288 
CLEAR 023454 fe} +4 Fhe 858 860 862 864 866 868 870 872 874 876 
CLEARX 023450 A +44 929 1935 1940 2031 2114 2144 24678 2756 2923 2950 3021 3050 
CLR = 100000 4834 792 928 1931 2143 2152 2431 2444 2602 
CNFMAX 003004 7484 82581 2588 
CONFIG 025020 733 739 893 1932 1944 2034 2046 2049 2145 2160 2587* 2588 26548 
CR = 000015 2414 3125 
CRLF = 000200 2418 6134 704 716 732 2676 2677 2678 2679 2680 2683 2689 2765 
2789 2816 2908 2925 2926 2952 2963 2986 2988 2990 2991 2992 2993 
2994 2995 2996 3000 3125 3170 3187 3190 3191 3194 3195 
DAF 1 042202 261 267 273 279 285 291 297 303 309 315 321 327 333 
339 345 351 357 363 369 375 381 387 393 399 405 411 
417 423 429 435 44) 447 453 459 465 471 477 32018 
DCF 024736 1040 1145 1213 1305 1631 1694 1725 1778 1938 2017 2044 2061 2072 
tyr % he 2108 2127 2150 2156* 2234 2345 2462* 26298 2854 2842* 2954 
*® 
DCFE = 000007 491# 1039 1144 1212 1304 1630 1724 1937 2043 2060 2071 2081 2105 
2126 2149 2233 2344 2833 2841 2953 2958 2966 
DCFH 024740 26378 
DCFIAB 021772 2039 2064 2106 22564 
DCFO = 000001 582a 
DCF1 = 000002 5814 
DCF2 = 04 580" 
DCF3 = 000010 5798 
DDISP = 177570 2418 254 703 
DH1 041056 259 475 31748 
DH10 041471 427 439 31834 
DH11 041516 445 457 31844 
DH12 041563 451 6 3185# 
DH13 041610 469 3186# 
DH2 41122 265 3175a 
DHS 041146 277 289 295 301 307 313 319 325 3176# 
DHS 041173 271 283 31778 
DHS 041240 331 343 31788 
DH6 041305 337 349 31798 
DH7 041332 355 36 367 373 379 385 391 397 403 415 31808 
DH8 041357 409 31814 
DH9 041424 421 433 3182a 
DISPLA 001142 2548 703* 3119" 3120+ 
DISPLY 024750 779* 780 793+ 794 803+ 806 816 823 830 837 8448 846 851 
854* 856+ 858+ 860+ 862+ 864+ 866+ 868+ 870+ 872+ 874+ 876 878" 
880* 1040" 1045* 1050* 1062* 1063 1145* 1150" 1155" 1213" 1218 1223" 1255* 
1236 130S* 1310" 1315" 1368 1369 1453* 1454 5i2* 1513 1526" 1528 1535 
1541* 1542 1555* 1556 1563* 1565 1572 1578* 1579 2417# 26538 2454 26478 
2097* 2709 2786* 2794 2811 2817 2886+ 2889 2890 2954" 295 2960 2968¢ 
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2969" 3198 3199 3200 

DISPRE 000174 2458 703 

DAPREG 025526 785 797 813 822 829 836 843 854 856 858 860 862 864 
866 868 870 872 874 876 878 880 920 967 1020 1031 1038 
1043 1048 1053 1066 1077 1089 1100 1111 1136 1143 1148 1153 1158 
1169 1193 1204 1211 1216 1221 1226 1239 1250 1258 1271 1296 1303 
1308 1313 1318 1329 1356 1363 1372 1377 1402 1409 1415 1441 1448 
1457 1462 1487 1494 1500 1518 1533 1539 1545 1561 1570 1576 1582 
1606 1613 1659 1663 1671 1682 1688 1692 1698 1755 1759 1765 1772 
1776 1782 1816 1830 1843 1867 1879 1902 1918 1987 1991 1998 2010 
2015 2021 2057 2068 2078 2088 2099 2113 2132 2200 2206 2213 2225 
2231 2238 2320 2337 2343 2348 2353 2360 2412 2421 2427 2457 24998 
ster 2743 2772 2779 2830 2840 2849 2858 2864 2870 2881 2894 2899 

DMPSID 042115 2601 31948 

DSBT = 000010 6034 607 1942 2032 2037 2059 2118 2122 2158 2285 

DSWR = 177570 2418 254 703 

DTAB 003540 741 7648 

DT1 042134 260 272 284 302 332 344 410 422 434 446 458 476 31988 

DT2 042150 266 278 290 296 308 314 320 326 338 350 356 362 368 
374 380 386 392 398 404 416 428 440 452 464 31998 

D135 042160 470 32004 

EMTVEC= 000030 2418 703* 

EM 036162 258 31348 

EM10 036331 300 31378 

EM11 036377 306 31384 

EM12 036463 312 31398 

EM15 036521 318 3140" 

EM14 036570 324 31418 

EM15 037107 330 31468 

EM16 037144 336 31478 

EM17 037225 342 31488 

EM2 036215 264 3135« 

EM20 037261 348 31498 

EM21 037341 354 3150" 

EM22 037377 360 31514 

EM23 037446 366 31528 

EM24 037533 372 31530 

EM25 037571 378 3154a 

EM26 037640 384 31554 

EM27 037725 390 31564 

EMS 036655 270 31428 

—M30 037763 396 3157a 

EM31 040032 402 3158# 

EM32 040117 408 3159" 

EM35 040154 414 3160" 

EM34 040255 420 31614 

EM35 040272 426 31628 

EM36 040353 432 31634 

EM37 040407 438 3164m 

EMS 036712 276 31434 

—EM40 040467 444 3165é 

EM41 040523 450 31668 

EM42 040603 456 3167a 

EMG3 0406 36 462 31684 

EMGG 040715 467 3169" 


MAINDEC-11-CRIIJA-B 


CRIIAB.P11 


lllv 


— 


K1PDR6= 


024736 
000010 
024740 


023644 
024634 


eteeee 
000001 
040000 


024744 
024742 


021772 
024736 


000010 
172340 


st es ss ss es + 
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4 ¢ 


s 


Owen 
zzz 


NVYVOONNWE ES 
_ 


@Owoc 


3122 
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80 


60* 


—N NN — 
BWoINMOW—WV0 
™N 
co 
S 


1236 
2872 


1542 


@o o-—wuW 


1579 


1651 


1808 


2333 
1823* 


1261* 
2558 


1837 


2761 
1834* 


1821 
2560 


26268 
2115 


1859 


2872 
2090 


1822+ 
26408 


2704* 
2192 


1873 


3056 


1453 
2832¢ 
1450 


2585 
2926 


1851 


1891 


1490 
1452 


2676 
2952 


1855 


2102* 
2089 


3031 


1912 


SEQ 0132 


1667 
1489 


2677 
2963 


2300 


2291 
2091¢ 


1979 


MAINDEC-11-CRIIA-B 


CRIIAB.P11 
KIPDR7= 172316 
LF = 000012 
LINEO 010536 
LINE? 010576 
LINE2 010610 
LINMBR 024754 
LINTST 010626 
KE 00004 
MAXCNT 025026 
MCP 027750 
MOSD = 000001 
MENB = 000004 
MFRA = 002000 
M100 = 000000 
M1D1 = 000400 
M102 = 001000 
M1D3 = 001400 
MINCNT 025024 
MLEN = 000002 
MMBOOT 025030 
MMVEC = 000250 
MNTBTS 023446 
MPDBT1 026166 
MPDIBT 026160 
MPDINT 026714 
MTAB 002762 . 
MIC 024736 - 
MTCE = 000015 
MTCH 024740 
MTYP = 004000 
N = 000044 
NOPAR 002644 
PARCAL 023506 
PARFLG 025016 
PBFTAB 022002 
PBFO = 000400 
PBF1 = 001000 
PBF2 = 002000 
PBF3 = 004000 
PBO 8 = 000400 
PB1 = 001000 
PB2 = 002000 
PB3 = 004000 
PGBTAB 022002 
PGCS 024736 
PGCSE = 000001 
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26498 2685" 2696 
987 989 9988 


2404* 2416 26598 
2122 2285 2695 
1707 1785 1791 


3 26588 
8 2285 


1701* 1704* 1707+ 
2451* 26318 2695¢ 
880 947 1700 


1704 1785 1788 
856" 858" 8608 


1958 2174 24888 


1387 1398 1472 
1013* 1015 1023 
1288 1345* 1347 
1745* 1749 1974¢ 
2884" 3037" 3088+ 
860 943 1014 
1346 1390 1392 
1860 1871 1874 
2885 3093 


3200 


3023 


1788* 1791" 1942" 2059+ 
1941 2058 2069 2117 


864" 8664 8684 8708 


2002 2004 22628 2701 


1080* 1125" 1128 1186* 
1393 1430" 1432 14768 
2084 2094" 2453 26238 
1061 1079 1127 1187 
1431 1475 1477 1540 
1910 1913 1973 2083 


SEQ 0133 


2118" 2122* 


2450 


874" 8768 


2761" 27988 


1252 
1744 
2482 


ES eee 


MAINDEC-11-CRIIA-B 
CRIIAB.P11 18-JUN-79 1 


PGCSH 024740 
PGF 024736 
PGFE = 000005 
PGFH 024740 
PGITAB 021772 
PGMR = 020000 
PGONL 017400 
PGTE 024736 
PGTEE = 000000 


PIFTAB 021772 
0 0 


PIFO = 000001 
PIF1 = 000002 
PIF2 = 000004 
PIF3 = 000010 
PIRQ = 177772 
PIRQVE= 000240 
P10 == 000001 
P11 = 000002 
P12 = 000004 
P13. == 000010 
POP = 005726 
POPPOP= 022626 
PRDY = 004000 
PRO = 000000 
PR1 = 000040 
PR2 = 000100 
PRS == 000140 
PR4 = = 000200 
PRS = 000240 
PR6 == 000300 
PR7 = = 000340 
PS = 177776 
PSw == 177776 
PIP = 000002 
PwRVEC= 000024 
ROCHR = 104410 


RTEO = 000001 
RTE1 = 000002 
RTE2 = 000004 
RTES = 000010 
SBFTAB 022002 
sBFO = 000001 
SBF1 = 000002 


vot A sioniessung” 
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22668 


1105* 
2006 


1059 
1768 


1341 





12448 
2315* 
1476 


2785 


1246* 
2755* 
2300 


3091 


1387* 


1340 
3035 


31288 


1202 
1859 


12568 


1315 1350 139 
2722 2769 27748 
1222 1314 134 
2339 2459 272 


1946 1977 1999 


1472" 1642" 17388 
1425 1471 1641 


1289 1294 1347 
1862 1891 1976 


1826* 1828  2095* 


SEQ 0134 
1459 
2886 
1395 
2768 
2001 


1966¢ 
1737 


1393 
1982 


20978 





Fit 
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SBF2 = 000004 565m 

SBF3 = 000010 5648 

$B0 = 000400 5278 

$81 = 001900 5268 

$82 = 002000 5258 

SB3 = 004000 524m 

SCBOOT 031420 3012 3021" 

SCPBAL 032040 3016 = 31148 

SCPIAL 032026 3015 31108 

SCPISF 032000 3013 = 3102" 

SCPXMT 031664 3079" = 3098 «= 3107, 3111-3115 

SCSTSF 031554 3014 3050" 3067 

SELPAR 002654 246 7278 

SETMNT 023306 1010 1122,2s«1339=Ss«*1385) = s«*1628)~=——«1722,)—~Sté«—«*2799~=S's«*1B4B 2036 = 2283) 3H 2693 

SETMNX 023414 24598 2467 

SETMNI 023312 2444H 2482 

SIDNUM 024730 990 993 2606" 26148 2707 2873 3033 

SIDTAB 021762 1018 «=. 1028.-~Ss«a1133~=~=S=«d1191Ss«*1201~Ss«*1293)~=Ss«1645)Ss*d1741)~Ss«*1807—Ss«*1858 = 1890 «1970 = 2079 
224668 2445 = 2875 

$100 = 000000 S13# 2246 

$1D1 = 000400 S14 2247 

$1D2 = 001000 515#@ 2248 

$103 = 001400 S16# © 2249 

SIFTAB 021772 1264 1509 1591 2255« 

S1FO = 000001 571" 

SIF1 = 000002 570M 

SIF2 = 000004 569" 

SIF3 = 000010 5688 

$10 = 000001 531" 

$12 = 000002 529" = 5308 

$13 = 000010 5288 

SLOISP 031406 3009 = 3012" 

SLMSG 030214 2983 2986 

SLOOPS 030160 766 4.2976" 

SLOOP] 031232 2980 2984 2999" 3006 3046 3061 3092 

SNAPO 024756 898 912 930 957-1631" «1693 ~=—«1725*)««1777~—Ss«*1938* =. 2016 = 2044" = 2045S 2083 
2150" 2232 2650# 

SPACE 042110 2534 2551 2564 31928 

SRO. = 177572 244" 31228 

SR1 = 177574 2448 

SR2 = 177576 244M 

SR3. = :172516 2448 31228 

SSTMNT 023476 1183 1282S «1424=Ss«s1470~S «1506S «1549=Ss«*1589—s«*1884 BIA 

STACK = 001100 2418 703 2762 2824 2914 2928 

START 002024 703# 724 728 

STBTAB 022002 2217 2219S 2263# = 2729 

STCCNT 025022 718* 2363 2373* 2388" 2402" 2417 26568 

STCS 024736 B66* B68e B70e B72* 1510" 1512 1526 1552 1555 1563 1592 2189* 219% 
2202 © 2625# = 2730" «= 2867S 29308 

SICSE = 000003 4878 866 868 870 872 945 1511 1525 1554 1562 1892 2188 2201 
2301 «2317, 2866 = 2929-3062 

STCSH 024740 159¢* 1600 1609 26348 

STF 024736 1050 «1155. «1206~—Ss«é28Ne = 12338) 1265*® «1268 «= 1298) 132t# «= 1325013741412 1485 
148! 1689 1773 2012 2155" 2221 2356 2661" 2628 2741 2776 2781" 2846 

e 
STFE = 000006 490# 1069 «1154 -1205,Ss«*d1280)-s«*12382-—=S—i«i1263)— (1267) 1297) 1819 182K 18P7B GN 
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1434 1480 1908 2220 2355 2740 2775 
STHLT 027500 765 29218 
STITAB 021772 1229 1888 2162 2214 2216 22524 2290 
STKLMT= 177774 2414 
STMR = 010000 Sila = 1891 1912 
STONL 021134 995 21418 
= 000002 5378 868 
STTE 024736 862+ 864" 1509" 1551* 1591" 2182" 2290 
STTEE = 000002 4868 862 864 1508 1550 1590 1887 
SwWR 001140 2548 703* 704 2499 2512 2516 3119 
SWREG 000176 245a 703 704 3124 
SwO ~= 000001 2418 
$wOO = 000001 2418 
$wO1 = 000002 2418 
SwO2 = 000004 2418 
$wO3 = 000010 2418 
$w04 = 000020 2418 
swOS = 000040 2418 
$w06 = 000100 2418 
$wO7 = 000200 2418 
$w0O8 = 000400 2418 
$wO9 = 001000 2418 
Swi == 000002 24a 
$w10 = 002000 2418 
Sw11 = 004000 2418 
Swi2 = 010000 2414 
Swi3 = 020000 2418 
Sw14 = 040000 2418 
Sw15 = 100000 2418 
SWw2 = 000004 2418 
Sw3 = = 000010 2418 
SWw4 == 000020 2418 
Sw5 = = 000040 2418 
SW6 = =: 000100 2418 
Sw? = = 000200 2418 
Sw8 == 000400 2414 
Sw9 == 001000 2418 
TBITVE= 000014 2418 
TCR 023642 2503* 2508" 25218 
TIMPER 024752 1520* 1524" 1597 26488 
TKVEC = 000060 2418 
TMO = =_: 000010 535@ 1534 1571 1893 2191 2195 2316 
TAT == 0000! 607# 2446 
TPVEC = 000064 2414 
TRAPVE= 000034 2418 703¢ 
TRIVEC= 000014 2418 
TST1 003562 764 774@ 863117 
TST10 §=—.005132 858 8608 
TST11 005206 8604 
TST12 ©005272 8604 
TST13 = 0005346 860 862« 
TST14 005556 8644 
TS115 005766 8664 
TST16 ©006042 8664 
TST17 = 006126 8668 
TST2 003742 . 795 802e 


SEQ at 


2780 2844 


3056 3063 


2850 


1 
; 2728. 2860 


3054 
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TS120 006202 866 8684 
8684 


a | 
TST25 006416 oe 8708 

a 
TST26 006632 ie 872a 


1$13 004276 BSG" 
18130 007252 876" 
18131 007462 8788 
18132 007672 B80" 
18133 010106 8928 
TST34 =: 010634 10084 
18135 011524 1218 
18136 012052 11828 
1$137 012646 12818 
TS14 004506 8564 
T$140 013174 13384 
T$141 013470 13840 
1$142 013716 14238 
18143 014212 14698 
T$T4q 014440 15054 
T8145 014710 1548 
1$146 015136 15850 
TS147 015334 16278 
1$15 004716 8588 
TS150 016062 17214 
T$151 016530 17984 
18152 017002 18474 
1$153 017174 18824 
1$154 017400 19300 
18155 020162 20308 
18156 021134 21428 
18157 022012 22818 
1816 004772 8588 
1817 005056 8588 
TTMGO 3006 744 752a 
TTMG! 003040 744 7530 
TTRG10 003516 746 7608 
TTRG2 003130 744 7548 
TIGS 003216 74, 7558 
TTMG4 = =©003303 745 756# 
TTMGS 003342 74507578 | 
TTMG6 003414 7457580 
TIRG? 003460 745 7598 | 
TYPDS = 104408 S17 S121 5128 
TYPDS = 1044 
TYPE. = 104401 704 716 «732786 73B—««2379-«—«« 2393 2407 ~—2502-S« 2507 «2510 2526 2881 | 
2532 2534 2549-2551 25622564 2574 2576 2578 «2583 58425852601 
5610 2611 «2676 «2677 ~—-2678 «= 2679 «2680 2683 2689) 765 2789 Be 2908 | 
5911 2925-2926 2952. 2963-2988. $000 »«= 3005S 3117 S120 812181288124 
$125 3126 «312731288 3129 | 
TyPOC = 106402 2506 2533-2956 296581203121 31243128 | 
TYPON = 104404 3128 | 
> 104408 2550 | 
| 
i 
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ulO == 000400 5894 2268 
ull = 001000 588" 2269 
ul2 = 002000 5878 2270 
vl3 = =: 004000 5864 2271 
UVITAB 022002 1357 1366 1403 1442 1451 1488 22688 
w = 000005 16254 
XMITS 031662 3077" 3081 3087 3106" 3110" 31148 
SAPTHD 001000 2524 
SASTAT= teeree 3130 
SATYC 035740 31308 
SATY1 035714 3130@ 
SaATY3 035722 3125 3130" 
S$ATY4 035732 3120 3130" 
SAUTOB 001134 2548 704* 3124 
SBASE 001304 2548 
SBDADR 001122 2548 
SBDDAT 001126 2548 780* 781* 782 809¢ 810 818¢ 819 825* 826 832" 833 839e 

840 854« 856« 862* 864+ 872* 874+ 876* 878+ 880* 915* 917 963« 

964 1015* 1016 1023* ‘024 1033* 1035 1108* 1128 9 1138* 1140 1165¢ 

1166 1188* 1189 1196* 1197 1206* 1208 1268* 1288" 1289 1298* 1300 1325* 

1326 1350" 1353 1359* 1360 1369* 1374* 1396" 1399 1405* 1406 1412" 1435¢ 

1438 14448 1445 14548 1459* 1481* 1484 1490* 1491 1497* 1527* 1528 1530 

1535* 1536 1564* 1565* 1567 1572* 1573 1587* 1600* 1601 1609* 1610 1653¢ 

1654 1660 1667* 1668 1678* 1679 1685* 1689 1694" 1695 1749* 1750 1756 

1762 1769* 17738 1778* # 1779 1810" 1811 1813 1839* 1840 1861* 1862 1864 

1875* 1876 1898* 1899 1914* 1915 1981* 1982 1988 1994* 1995 2006* 2007 

2012* 2017* 2018 2053* 2054 2061* 2062" 2065 2072* 2073* 2075 2084* 2085 

2108" 2109" 2110 2127* 2128* 2129 2194" 2195 2202" 2203 2209" 2210 22218 

2222 2228* 2234 2235 2318 2330" 2334 2340" 2345 2350* 2356" 2357 2362" 

2367 2371 2373 2383 2386 2388 2397 2400 2402 2418 2424 2722" 827418 

2769" 2776* 2827* 2834" 2835 2837 2846* 2855" 2861" 2867" 2877" 2878 2887+ 

2890" 2891 3198 3200 
$BELL 001220 2548 3120 
$CDw1 0013510 2548 
$CDw2 001312 2548 
SCHARC 034776 3125a« 
SCKSWR 033612 3124@ 3128 
SCMTAG 001100 2548 703 
$cmMi = 000006 2548 | 
$CM2 = 000014 2548 
$cm3 = 000006 2548 
$cmM4 = 000007 2548 
SCNTILG 034471 31240 
SCNTLU 034464 3124e 
SCORE 033352 3122a | 
$cPUOP 001256 2548 
SCRLF 001225 2548 738 2576 2583 2584 2911 3120 3121 3123 3124 3125 
$CROUT 033402 3122@ 
SDBLK 035444 31278 
$0DwO 001314 2548 
$0Dw1 001316 2548 
$DD0W10 001340 2548 
$DDw11 001342 2548 
$DDW12 001544 2548 


$00w14 001350 2548 


Jv 
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CRIIAB.P11 18-JUN-79 14:2 ROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0139 

$odw15 001352 2548 

$00w2 001320 2548 

$00w3 001322 2548 

$o0w4 001524 2548 

so0wS 001326 2548 

$0DW6 001330 2548 

$o0w7 001332 2548 

$odw8B 001334 2548 

$00w9 001336 2548 

SDEVCT 001240 2548 

SDEVA 001306 2548 

SDOAGN 032150 31174 

SOTBL 035434 31274 

SENDAD 032140 250 704 714 31178 3120 

SENDCT 032106 703 3117" 

SENDMG 032157 31174 

SENULL 032154 31174 

SENV 001250 2548 704 3120 3125 3130 

SENVM 001251 2548 703 3125 3130 

SEOP 032052 2436 31174 

SEOPCT 032100 703* 31174 

SERFLG 001103 2548 3119" 31208 

SERMAX 001115 2548 703* 3119* 

SERROR 032446 703 3119 31208 

SERRPC 001116 2548 3120" 3121 3198 3199 3200 

SERRTB 001354 25484 3121 

SERRTY 032770 3120 31214 

SERTTL 001112 2544 8 3120* 

SESCAP 001216 2548 703* 3119" 3120 

SETABL 001250 2548 

SETEND 001354 252 2544 

SFATAL 001232 2548 3130* 

SFFLG 036160 3130a* 

S$FILLC 001156 25484 3125 

$FILLS 001155 254e 8 3125 

$GDADR 001120 2548 

SGDDAT 001124 2548 777* 778 782 786* 787* 788 804" 810 819 826 833 840 
845" B49« 854" 8568 862* 864" 872* 8748 8768 878 880* 916* 917 
959« 904 1018* 1028 1029* 1034* 1035 1104* 1105 1106* 11338 11348 11398 
1140 1160* 1161 1162* 1163" 1166 1191" 1201" 1202" 1207* 1208 1264* 1265 
1266" 1293" 1294* 1299* 1300 1320" 1321 1322s 1323" 1326 1351" 1352* 1353 
1357* 1360 1364* 13972 1398* 1399 1403* 1406 1410* 1436* 14378 1438 1442 
14645 1449" 1482* 1483* 1484 1488* 1491 1495* 1529" 1530 1534* 1536 1566* 
1567 1571* 1573 1595* 1596" 1610 1645* 1646" 1651" 1660 1665* 1668 1673¢ 
1674 1675* 1676* 1679 1683* 1693" 1695 1741* 1742* 1747" #1756 1760* 1767* 
1777* 1779 1807* 1808* 1813 1837* 1840 1858* 1859" 1864 1873* 1876 1890¢ 
1891* 1899 1912" 1915 1970* 1971* 1976 1979 1988 1992" 1995 2001" 2004" 
2007 2011* 2016" 2018 2045* 2048 2051" 2052" 2054 2063" 2064" 2065 2074" 
2075 2079* 2080* 2085 2104* 2110 2125" 2129 2186" 2191" 2203 2207* 2210 
2216* 2219 2222 2226* 2232" 2235 2316e 23318 23328 2333* 2334 2338 23548 
2357 2366* 2367 2370" 2371 2382" 2383 2385" 2396" 2397: 2399" 2416* 2418 
2423" 2424 2706* 2767* 2826* 2835" 2836" 2837 2845" 28532 2872" 2875" 2878 
2888* 2889+" 2891 2896 2959" 2960 2964 2968 3198 3200 


$GET42 032130 3117# 
SGTSWR 033662 31248 3128 
$HD = 000000 239 
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SHIBTS 001000 2528 
SHIOCT 033610 31235 
SICNT 001104 2548 31198 
SILLUP 035676 31298 
SINTAG 001135 2548 863124 
SITEMB 001114 254# 3120" 3121 
SKTINEX 033344 31220 
$KTOUT 033334 31228 
$KT11 033202 3122a* 
$F 001226 2548 3120 3123 3124 3125 
SLFLG 036157 3130a* 
SLPADR 001106 2548 703* 31198 
SLPERR 001110 2548 703* 776* 790+ 805* 854* 8568 862* 864* 872* 874« 876* 878« 
880+ 926* 1588" 1629* 1723 1936* 2148* 2518 2692" 3119" 3120 
SLSTAD 033446 3122a* 
$LSTBK 033450 3122a* 
SMADR1 001262 2548 
SMADR2 001266 2548 
SMADRS 001272 2548 . 
SMADR4 001276 2548 
SMAIL. 001230 252 2548 703 704 3119 3120 3125 
SMAMS1 001260 2548 
SMAMS2 001264 2548 
SMAMS3S 001270 2548 
SMAMS4 001274 2548 
SMBADR 001002 2528 
SMFLG 036156 3130a* 
SMNEW 034507 3124a 
SMSGAD 001244 2544 31308 
SMSGLG 001246 2548 3130* 
SMSGTY 001230 2548 3130* 
SMSWR 034476 31248 
SMTYP1 001261 2548 
SMTYP2 001265 2548 
SMTYP3 001271 2548 
SMTYP4 001275 2544 
SMXCNT 032444 31194 
SNULL 001154 2548 3125 
$NWTST= 000001 7748 8024 854a 8568 8588 8608 R620 864m 866" 8684 8708 8728 874e 


8768 8784 880" 892" 1008 11218 1182 12818 13388 13848 14238 14698 1505# 


15488 1585 16274 17218 1798# 1847# 1B8B3# 19308 20308 21428 22818 
SOCNT 035224 3126M« 
SOMODE 035226 3126 
SOVER 032430 31198 
$PASS 001236 254H = 708* «= 2596.~Ss3117* «3119s 3198 ~——3199 «3.200 
SPASTM 091006 2520 
SPOWER 035704 31298 
SPURDN 035536 31298 
SPURMG 035672 31298 
$PURUP 035610 31298 
$QUES 001224 254# 3120 «3123831243125 
SRDCHR 034074 3i24a 3128 
SRDDEC= eeeeee Y 3128 
SRDLIN 034214 3154" 3128 
$RDOCT 033452 3193@ 3128 
$RDSZ = 000014 31348 | 


L 11 
MAINDEC-11-CRIIA-B MACY11 30A(1052) 18-JUN-79 14:32 PAGE 73-13 
CRIIAB.P11 18-JUN-79 14:24 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0141 


SREGAD 001160 2548 
SREGO 001162 2548 
SREG] 001164 2548 


SREG2 001166 2548 

$REGS 001170 2548 

SREGG 001172 2548 

SREGS 001174 2548 

SRTNAD 032152 31174 

SR2A = teeeee 3128 

SSAVRE= eeeeee | 3128 

SSAVR6 035702 3129a* 

SSCOPE 032174 703 31194 

SSETUP= 000137 7014 703 704 3117 3119 3120 3124 

SSIZE 033144 31220 

SSIZEX 033406 31228 

$STUP = 177777 7014 

S$SVLAD 032374 31194 

$SVPC = 000210 2504 

$SswR = 167000 2314 239 240 254 703 774 802 854 856 858 860 862 864 

66 868 870 872 874 876 878 880 892 1008 1121 1182 1281 

1338 1384 1423 1469 1505 1548 1585 1627 1721 1798 1847 1883 1930 
2030 2142 2281 3117 3119 3120 3129 

SSWREG 001252 2548 703 

SSWRMK= 000000 3119 

STESTIN 001234 2548 3119* 

STIMES 001214 2548 703* 3117* 3119* 

STKB 001146 2544 2682 2764 2924 2982 2999 3124 

STKS 001144 2544 2782 3044 3059 3090 3124* 

STMPO 001176 2548 900* 913« 914 938* 941 960 2575" 2577 2580* 2581 2705* 3200 

STMP1 001200 25484 962" 1634* 1636* 1637* 1638 1639* 1640* 1642 1730* 1732* 1733* 1734* 
1735« 1736* 1738 1943* 19548 1957 1960* 1961* 1962* 1963* 19648 1966 1977 
1999 2002 2032" 2037* 2070 2159" 2170" 2173 2176* 2177" 2178 2179 2180¢ 
2182 2214 2217 2720* 2739* 3200 

STMP2 001202 2548 8 1060* 1233* 2033* 2042* 2062 2073 2082 2109 

STMPS 001204 2548 927* 1586" 1594 1595 1601 1614* 

STMP4 001206 2548 


548 861081" 1082" 1083 1085 1092* 1093" 1094" 1095* 1096* 1097 

$™1N = 000060 2328 239 7748 795 8028 854" 8568 8584 8608 862" 8648 8668 8088 
8708 8728 8748 8768 8788 8804 892" 1008 11218 1182 12818 13388 13848 
14234 14698 1505#@ 1548 15854 1627# 1721 17984 1847# 18838 1930# 2030# 21428 


$TPB 001152 2544 31258 
STPFLG 001157 2548 312 
STPS 001150 2544 3125 
STRAP 035454 03 3128a 
STRAP2 035476 31288 

$TRP = 000015 31288 

STRPAD 035510 3128a 


1 
1 
! 
STSTNM 001102 foe 3117* 3119* 3120 
1 
1 
1 
1 


7 3128 
5a = 3128 3130 
STYPEC 034732 4 3125 


MAINDEC-11-CRIIA-B 
18-JUN-79 14:2 


CRIIAB.P11 


STYPEX 


$40CAT 


042212 


eeneeee 


001000 


MAC 


¥11 30A(1052) 
4 ¢ 
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3124" 


ROSS REFERENCE TABLE -- USER SYMBOLS 


2528 2548 703 7048 
2526# 2529 2585# 2589 
29084 29528 2963# 29978 
3125 3127# 8 3129 31300 


748 
26508 
30004 
31968 


7618 
2673 
3005« 


1933 
26768 
3060 


2146 
26778 
3117 


2529 
26798 
3119 


SEQ 0142 


2364 
26838 
3120 


MAINDEC-11-CRIIA-B 


CRIIAB.P11 
BITST 6174 
COMMEN 2418 
ENDCOM 2418 
ERROR 2418 
868 
1065 
1220 
1376 
1560 
1764 
2014 
2319 
2839 
ESCAPE 2414 
GETPRI 2418 
GE TSWR 2418 
INCTST 6634 
MULT 2418 
NEWTST 2418 
878 
1721 
POP 2414 
PUSH 2418 
REPORT 2418 
SCOPE 2418 
878 
1721 
SETPRI 2418 
SETTRA 31288 
SETUP 2414 
SKIP 2414 
SLASH 2418 
SPACE 2418 
STARS 2418 
872 
1548 
3122 
SWRSU 2414 
TRMTRP 31288 
TYPBIN 2414 
TYPDEC 2414 
TYPNAM 2414 
TYPNUM 2418 
TYPOCS 2418 
TYPOCT 2418 
TYPTXT 2418 
2083 
SSCMRE 2548 
SSCMTM 2548 
SSESCA 2418 
SSNEWT 2418 
878 
1721 
$$SET 31288 
SSSETM 703@ 
$$SKIP 2418 


858 


860 


MACY11 30A(1052) 
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866 


18-JUN-79 


868 


Owoowonr £&w—wo 
COUN OF US SIN 
DWDNINWUDWMONOO — 


mone eS 


fo ae oe es 

OOo £&w—wo 
OEUNOf ow 
Wreoaewouw 


14:32 PAGE 74 
CROSS REFERENCE TABLE -- MACRO NAMES 


2574 
2952 


864 
1384 


NN 


—NMm@ 
oo 
NO 


2585 
2965 


866 
1423 


NNR ee os 
WYNN ONOOOC 


862 
1338 
2281 


2676 
3000 


868 
1469 


MIN ee ee oe oe - 
MMO —-NONMNOS 


2677 
3005 


870 
1505 


WR OS VMWNOO 
NSN OOWMO LS 
—FONNMVWwNN 


Rona ee 


2678 


872 
1548 


NN 

WN ONMWN OO 
NVWOYVWO — FS 
COnfOrOnwe 


2679 


SEQ 0143 


2680 


876 
1627 
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EQUAT 2358 241 
-HEADE 2378 239 
KT 2368 244 
- SETUP 2378 701 


SAPTH 238" 

-SAPTY 2384 3130 
-SCMTA 2354 254 
. SEOP 2354 3117 
- SERRO 2354 3120 
SERRT 2354 3121 
. SPOWE 2368 3129 
- $RDOC 2374 = 3123 
SREAD 2378 = 3124 
$SCOP 2368 3119 
$SIZE 2368 3122 
STRAP 2308 3128 
-STYPD 230 3127 
STYPE 2374 = =3125 
$TYPO 2364 3126 
$400A 2354 245 


- ABS. 042212 000 


ERRORS DETECTED: 0 


CRIIAB,CRIIAB/CRF_CRIIAB.P11 
RUN-TIME: 128 92 TO SECONDS 
RUN-TIME RATIO: 1050/232=4.5 


.SWRHI 2358 = 240 

~SWRLO = 2408 

CORE USED: 28K (55 PAGES) 
| 
| 


